对Object Pascal编译器给类对象分配堆内存细节的一种大胆猜测(下)[5]

{实现}

constructor tbase.create;

begin

  self.x := 2;

  self.y := 3.14;

end;

procedure tbase.freeinstance;

begin

  inherited;

  showmessage(format('call %s.freeinstance!!!',[self.classname]));

end;

class function tbase.newinstance: tobject;

begin

  showmessage(format('call %s.newinstance',[self.classname]));

  result := inherited newinstance;

end;