Vorteile von Delphi

[sakura]

Zitat von Hubble:

Is ja Wahnsinn das AutoDelete geht echt. Ich brech ab

Nur sollte man object nicht mehr benutzen, und ich empfehle es Dir daher auch nicht. Aber keine Sorge, Autodelete geht trotzdem. Siehe Anhang. Der Code zum Aufruf selbst ist folgender:

Delphi-Quellcode:

procedure TForm6.Button1Click(Sender: TObject);
begin
  ShowMessage('Wir werden die Klasse gleich erstellen. Warte nur.');
  // HIER WIRD DAS OBJEKT ERSTELLT
  TFreeMyself.GetInstance;
  ShowMessage('Die Klasse existiert jetzt als Objekt und wird gleich frei gegeben. Sage Tschüß!');
  // UND ZERSTÖRT WIRD ES AUTOMATISCH. STICHWORT: REFERENCE-COUNTING
end;

Und der eigentliche Trick sind die Interfaces unter Win32

Delphi-Quellcode:

type
  IFreeMyself = interface
  end;

  TFreeMyself = class(TInterfacedObject, IFreeMyself)
  public
    constructor Create;
    destructor Destroy; override;
    class function GetInstance: IFreeMyself;
  end;

Der Rest ist im Anhang. Zugegeben, etwas mehr Arbeit, aber ein Code-Template hilft da schon weiter

......