OOP: Object als Wrapper

[jbg]

Zitat von mkinzler:

Das "alte" Objektmodell aus Turbo Pascal kennt keine Konstruktoren/Destruktoren

Von wegen:

Delphi-Quellcode:

type
  PBase = ^TBase;
  TBase = object
    constructor Init;
    destructor Done; virtual;
  end;

constructor TBase.Init;
begin
end;

destructor TBase.Done;
begin
end;

var
  b: TBase;
  p: PBase;
begin
  b.Init;
  b.Done;

  p := New(PBase, Init);
  Dispose(p, Done);
end.