delphi CONSOLE 控制台程序1

program ConsoleTest;

{$APPTYPE CONSOLE}

uses

  System.SysUtils;

var

  Quit: Boolean;

  S: string;

begin

  try

    WriteLn('退出程序，请按Q，然后按回车键');

    Quit := False;

    while not Quit do begin

      ReadLn(S);

      Writeln('输入:'+S);

      Quit := (S = 'q') OR (S = 'Q');

    end;

  except

    on E: Exception do

      Writeln(E.ClassName, ': ', E.Message);

  end;

end.