object.inc

将bmf在DOS下显示出来

{$IFNDEF object}
{$DEFINE object}
type
  PObject=^TObject;
  TObject=object
    constructor init;
    procedure free; virtual;
    destructor done; virtual;
  end;  {TObject}

constructor TObject.init;
begin
{$IFDEF __TMT__}
  if typeof(self)<>typeof(TObject) then
    FillChar(ptr(ofs(self)+4)^,sizeof(self)-4,0);
{$ENDIF}
end;  {TObject.init}

procedure TObject.free;
begin
  Dispose(PObject(@Self), Done);
end;  {TObject.free}

destructor TObject.done;
begin
end;  {TObject.done}
{$ENDIF}