units/indy/IdBaseComponent.pas

   1 // 19-nov-2002
   2 unit IdBaseComponent;
   3
   4 interface
   5
   6 uses KOL;
   7
   8 type
   9   PIdBaseComponent=^TIdBaseComponent;
  10   TIdBaseComponent = object(TObj)
  11   protected
  12     FAOwner:PObj;
  13     FOwner:PObj;
  14   public
  15     procedure Init; virtual;
  16     function GetVersion: string;
  17     property Version: string read GetVersion;
  18   end;
  19
  20 function NewIdBaseComponent(axOwner: PObj):PIdBaseComponent;
  21
  22 implementation
  23
  24 uses
  25   IdGlobal;
  26
  27 function NewIdBaseComponent(axOwner: PObj):PIdBaseComponent;
  28 begin
  29   New( Result, Create );
  30   Result.FAOwner:=axOwner;
  31   Result.Init;
  32 end;
  33
  34 function TIdBaseComponent.GetVersion: string;
  35 begin
  36   Result := gsIdVersion;
  37 end;
  38
  39 procedure TIdBaseComponent.Init;
  40 begin
  41   FAOwner:=FOwner;
  42   inherited;
  43 end;
  44
  45 end.