Console aplication y readln

[acl_gandalf]

Hola buenas, estoy con un 'console aplication' y en vez de usar un formulario uso una ventana del cmd. Bueno, el caso, es que si uso la orden writeln('texto a mostrar'); y ejecuto el programaeste se abre y se cierra en cuestion de medio segundo. Para evitar esto use la orden readln; que pausa el programa a la espera de que pulse 'enter'. y queria saber si existe la posibilidad de no salir de la apliacion al pulsar la tecla enter

gracias de antemano

[dec]

Hola,

No estoy seguro de que esta sea la mejor respuesta: he visto algunos programas de tipo consola que seguramente no lo hacen exactamente igual.

Sin embargo, pienso que tal vez esto pueda ayudarte, darte alguna idea, en fin, servirte de algo. Echa un vistazo a este código:

Código Delphi [-]
  program consola;
  
  {$APPTYPE CONSOLE}
  
  uses
    SysUtils;
  
  var
    usuario: string = '';
  
  begin
     while (usuario <> 'Pedro') do
     begin
       Writeln('Escribe tu nombre y pulsa ENTER para salir');
       ReadLn(usuario);
     end;
  end.

Efectivamente. Gracias al procedimiento "ReadLn" podemos obtener lo que el usuario escriba en la línea de la consola. De este modo, podríamos comprobar si lo que ha escrito es lo que precisamos para dejarle "salir" de la misma.

El ejemplo hace uso de una instrucción "while", pero, la idea que trataba de transmitir con el mismo es únicamente la posibilidad de leer el contenido de la línea que escriba el usuario: el qué hagamos con lo obtenido, o sea, permitir salir al usuario, utilizar dicho contenido, etc., es ya cuestión de qué queramos conseguir.

Por otro lado, si haces uso del conjunto de clases y componentes de la Jedi Library (1) encontrarás que dentro de estos los hay para ampliar, por decirlo de algún modo, las capacidades de una aplicación de tipo consola. Concretamente encontrarás un módulo de nombre "JclConsole.pas" que tal vez pueda serte de utilidad.

(1) Proyecto Jedi

[acl_gandalf]

asias x la ayuda. funciona perfectamente

[dec]

Hola,

Se me ocurre que a más de uno le puede parecer el bucle "while" de más arriba perfectamente sustituible por un bucle "repeat" (y ya no sustituible, pero más adecuado). A mí desde luego me parece que sí, así que el código quedaría como a continuación se ve:

Código Delphi [-]
 
 program consola;
 
 {$APPTYPE CONSOLE}
 
 uses
   SysUtils;
 
 var
   usuario: string = '';
 
 begin
   repeat
     Writeln('Escribe tu nombre y pulsa ENTER para salir');
     ReadLn(usuario);
   until (usuario = 'Pedro');
 end.