source: branches/xpascal/Forms/FormConsole.pas

unit FormConsole;

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, FormEx;

type

  { TFormConsole }

  TFormConsole = class(TFormEx)
    Memo1: TMemo;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Memo1KeyPress(Sender: TObject; var Key: char);
  private
    InputBuffer: string;
    InputStrings: TStringList;
  public
    Terminated: Boolean;
    function GetInputString: string;
  end;


implementation

{$R *.lfm}

{ TFormConsole }

procedure TFormConsole.Memo1KeyPress(Sender: TObject; var Key: char);
begin
  if Key = #13 then begin
    InputStrings.Add(InputBuffer);
    InputBuffer := '';
  end else InputBuffer := InputBuffer + Key;
  Memo1.Text := Memo1.Text + Key;
end;

procedure TFormConsole.FormCreate(Sender: TObject);
begin
  InputStrings := TStringList.Create;
end;

procedure TFormConsole.FormClose(Sender: TObject; var CloseAction: TCloseAction
  );
begin
  Terminated := True;
end;

procedure TFormConsole.FormDestroy(Sender: TObject);
begin
  Terminated := True;
  FreeAndNil(InputStrings);
end;

function TFormConsole.GetInputString: string;
begin
  Result := '';
  while InputStrings.Count = 0 do begin
    Application.ProcessMessages;
    Sleep(10);
    if Terminated then begin
      Exit;
    end;
  end;
  if InputStrings.Count > 0 then begin
    Result := InputStrings[0];
    InputStrings.Delete(0);
  end;
end;

end.