source: branches/textos/UApp.pas

unit UApp;

{$mode delphi}

interface

uses
  Classes, SysUtils, UApi, Generics.Collections;

type
  { TApp }

  TApp = class
    Name: string;
    Api: TApi;
    Terminated: Boolean;
    procedure OnStart; virtual;
    procedure OnTerminate; virtual;
    procedure OnInputText; virtual;
    procedure Run; virtual;
    procedure Terminate; virtual;
    constructor Create; virtual;
    destructor Destroy; override;
  end;

  TAppClass = class of TApp;

  TAppDescription = class
    Name: string;
    AppClass: TAppClass;
  end;

  { TAppDescriptions }

  TAppDescriptions = class(TObjecTList<TAppDescription>)
    function SearchByName(Name: string): TAppDescription;
  end;


implementation

{ TAppDescriptions }

function TAppDescriptions.SearchByName(Name: string): TAppDescription;
var
  I: Integer;
begin
  I := 0;
  while (I < Count) and (Items[I].Name <> Name) do Inc(I);
  if I < Count then Result := Items[I]
    else Result := nil;
end;

{ TApp }

procedure TApp.OnStart;
begin
end;

procedure TApp.OnTerminate;
begin
end;

procedure TApp.Terminate;
begin
  Terminated := True;
  Api.Terminate;
end;

procedure TApp.OnInputText;
begin
end;

procedure TApp.Run;
var
  Message: TApiMessage;
begin
  OnStart;
  while not Terminated do begin
    Message := Api.GetMessage;
    case Message of
      amInputText: OnInputText;
      amTerminate: Terminate;
    end;
  end;
  OnTerminate;
end;

constructor TApp.Create;
begin
  Api := TApi.Create;
  Name := '';
end;

destructor TApp.Destroy;
begin
  FreeAndNil(Api);
  inherited;
end;


end.