objects2.pas

unit Objects2;

{$I STDEFINE.INC}

interface

const
  vmtHeaderSize = 12;

type
  PEmptyObject = ^TEmptyObject;
  TEmptyObject = object
    {Cat: íâ®â ®¡ê¥ªâ ¢ë­¥á¥­ ¢ ¯« £¨­­ãî ¬®¤¥«ì; ¨§¬¥­ïâì ªà ©­¥ ®áâ®à®¦­®!}
    constructor Init;
    procedure Free;
    destructor Done; virtual;
    end;

  PObject = ^TObject;
  TObject = object(TEmptyObject)
    {Cat: íâ®â ®¡ê¥ªâ ¢ë­¥á¥­ ¢ ¯« £¨­­ãî ¬®¤¥«ì; ¨§¬¥­ïâì ªà ©­¥ ®áâ®à®¦­®!}
    ObjectIsInited: Boolean;
    constructor Init;
    destructor Done; virtual;
    end;

procedure FreeObject(var O);

procedure ObjChangeType(P: PObject; NewType: Pointer);
  {` ®¤¬¥­  ⨯  íª§¥¬¯«ïà  ®¡ê¥ªâ . ‚ ª ç¥á⢥ NewType ­ ¤®
  㪠§ë¢ âì १ã«ìâ â TypeOf(­®¢ë© ⨯). ®¢ë© ⨯, ¥áâ¥á⢥­­®,
  ¤®«¦¥­ ¡ëâì ᮢ¬¥á⨬ ¯® ¯®«ï¬ á ⨯®¬, ª®â®àë© ¨¬¥« ®¡ê¥ªâ
  ¯à¨ ஦¤¥­¨¨.
     Žá­®¢­®¥ ­ §­ ç¥­¨¥ - ¯®¤¬¥­  ¢¨àâã «ì­ëå ¬¥â®¤®¢, â® ¥áâì
  ¨§¬¥­¥­¨¥ ¯®¢¥¤¥­¨ï ¡¥§ ¨á§¬¥­¥­¨ï ¤ ­­ëå.
  `}

implementation

const
  LinkSize = SizeOf(TEmptyObject);

constructor TEmptyObject.Init;
  begin
  FillChar(Pointer(LongInt(@Self)+LinkSize)^, SizeOf(Self)-LinkSize, #0)
  ; { Clear data fields }
  end;

procedure TEmptyObject.Free;
  begin
  if @Self <> nil then
    Dispose(PEmptyObject(@Self), Done);
  end;

destructor TEmptyObject.Done;
  begin
  end;

constructor TObject.Init;
  begin
  inherited Init;
  ObjectIsInited := True;
  end;

destructor TObject.Done;
  begin
  ObjectIsInited := False;
  end;

procedure FreeObject(var O);
  var
    OO: PObject absolute O;
  begin
  if OO <> nil then
    begin
    Dispose(OO, Done);
    OO := nil;
    end;
  end;

procedure ObjChangeType(P: PObject; NewType: Pointer);
  begin
  PWord(P)^ := Word(NewType);
  end;

end.