source: branches/textos/UApi.pas

unit UApi;

{$mode delphi}

interface

uses
  Classes, SysUtils;

type
  TApiMessage = (amNone, amTerminate, amInputText);

  { TApi }

  TApi = class
    Parent: TApi;
    procedure Sleep(Time: TDateTime); virtual;
    function GetMessage: TApiMessage; virtual;
    function InputText: string; virtual;
    procedure OutputText(Text: string); virtual;
    procedure Terminate; virtual;
    procedure ExecuteApp(Name: string); virtual;
  end;


implementation

{ TApi }

procedure TApi.Sleep(Time: TDateTime);
begin
  Parent.Sleep(Time);
end;

function TApi.GetMessage: TApiMessage;
begin
  Result := Parent.GetMessage;
end;

function TApi.InputText: string;
begin
  Result := Parent.InputText;
end;

procedure TApi.OutputText(Text: string);
begin
  Parent.OutputText(Text);
end;

procedure TApi.Terminate;
begin
  Parent.Terminate;
end;

procedure TApi.ExecuteApp(Name: string);
begin
  Parent.ExecuteApp(Name);
end;

end.