Programar en consola, sin formularios

[andrecuellar]

y como podría hacer para programar en consola? o sea, sin formularios, gracias

[[AgustinOrtu]]

El codigo que pusiste mas arriba es correcto sin Crt te da algun problema? Porque a mi me parece correcto

[ecfisa]

Hola de nuevo.

Como te comenta Agustin, quitando la alusión a la unidad Crt (y a ClrScr), ese código funciona correctamente en modo consola.

Para lo único que estas incluyendo la unidad Crt es para usar la función ClrScr y, de necesitarla si o si, podes escribir la tuya:

Código Delphi [-]
program Project1; {$APPTYPE CONSOLE}

uses SysUtils, Windows;

procedure ClrScr();
var
  hnd   : THandle;
  scrnfo: CONSOLE_SCREEN_BUFFER_INFO;
  st    : string;
  co    : _COORD;
begin
  hnd  :=  GetStdHandle(STD_OUTPUT_HANDLE);
  GetConsoleScreenBufferInfo(hnd, scrnfo);
  st   := StringOfChar(' ', scrnfo.dwSize.X * scrnfo.dwSize.Y);
  Writeln(st);
  co.X := 0;
  co.Y := 0;
  SetConsoleCursorPosition (hnd, co);
end;

begin
  ClrScr();
  ...

Saludos

[andrecuellar]

Empezado por AgustinOrtu

El codigo que pusiste mas arriba es correcto sin Crt te da algun problema? Porque a mi me parece correcto

entonces hay un problema aquí, por que con el código que cité arriba no corre, sale una ventana que dice "runtime error 105 at 0040A18A", alguien me podría ayudar?

[[AgustinOrtu]]

Edito: El mensaje me salio duplicado, aprovecho para editar este para agregar algunas lineas mas

Otra cosa que te recomiendo es que dejes una llamada a Readln al final de todo, porque cuando llega al fin del programa la consola se cierra y no vas a poder "ver los resultados"

Con un Readln al final el programa se quedara esperando hasta que alguien de enter para cerrarse (el clasico 'Presione ENTER para salir...')

[andrecuellar]

Empezado por AgustinOrtu

Edito: El mensaje me salio duplicado, aprovecho para editar este para agregar algunas lineas mas

Otra cosa que te recomiendo es que dejes una llamada a Readln al final de todo, porque cuando llega al fin del programa la consola se cierra y no vas a poder "ver los resultados"

Con un Readln al final el programa se quedara esperando hasta que alguien de enter para cerrarse (el clasico 'Presione ENTER para salir...')

Gracias! que estupidez que me mandé jajaja, ahora otra cosa que no me agrada es que se cierra apenas muestra el último mensaje, es posible hacer que la ventana quede sin cerrarse? o que al menos el resultado sea visible? jaja

[ecfisa]

Empezado por andrecuellar

Gracias! que estupidez que me mandé jajaja, ahora otra cosa que no me agrada es que se cierra apenas muestra el último mensaje, es posible hacer que la ventana quede sin cerrarse? o que al menos el resultado sea visible? jaja

Empezado por AgustinOrtu

...
Otra cosa que te recomiendo es que dejes una llamada a Readln al final de todo, porque cuando llega al fin del programa la consola se cierra y no vas a poder "ver los resultados"

Con un Readln al final el programa se quedara esperando hasta que alguien de enter para cerrarse (el clasico 'Presione ENTER para salir...')

Saludos

[[AgustinOrtu]]

Eso es porque sacaste la directiva {$APPTYPE CONSOLE};

De hecho el Wizard cuando pones Console Application te lo genera el solo, solo que hay que dejarlo

El codigo completo seria asi

Código Delphi [-]
program Project1;

{$APPTYPE CONSOLE} // no me elimines!!! 

uses
  SysUtils;

var
  n: integer;

begin
  write('Digite un número: ');
  readln(n);
  if (n mod 2 = 0) then
    write('Es par')
  else
    write('Es impar');

end.