source: branches/Independent/Devices/Console.pas

unit Console;

interface

uses
  Classes, SysUtils;

type
  TWriteEvent = procedure (Text: string) of object;
  TReadEvent = function: string of object;

  { TConsole }

  TConsole = class
  private
    FOnRead: TReadEvent;
    FOnWrite: TWriteEvent;
  public
    procedure Write(Text: string);
    function Read: string;
  published
    property OnWrite: TWriteEvent read FOnWrite write FOnWrite;
    property OnRead: TReadEvent read FOnRead write FOnRead;
  end;


implementation

{ TConsole }

procedure TConsole.Write(Text: string);
begin
  if Assigned(FOnWrite) then FOnWrite(Text);
end;

function TConsole.Read: string;
begin
  if Assigned(FOnRead) then Result := FOnRead
    else Result := '';
end;

end.