OOP: Object als Wrapper

[Shaman]

Hey there

Als ich wieder einmal eine Wrapperklasse schreiben wollte, kam mir die Idee, anstatt wie üblich TObject als Basisklasse zu verwenden, object zu nehmen:

Delphi-Quellcode:

type
  Wrapper = object
  end;

Obwohl das ja veraltet ist, sehe ich einige Vorteile: Man kann damit ganz einfach Funktionen kapseln, hat jedoch kein Overhead von TObject (vorallem wenn man eh nur ein einziges Feld wie z.B. ein Handle hat) und die Verwendung ist ein wenig praktischer, da das Instantiieren wegfällt. (Oder? )

Ein Beispiel:

Delphi-Quellcode:

interface

type
  WWindow = object(Wrapper)
  private
    FHandle: HWND;
    function GetTopMost: Boolean;
    procedure SetTopMost(const Value: Boolean);
  public
    function Find(const Caption: string): Boolean;
    property Handle: HWND read FHandle write FHandle;
    property TopMost: Boolean read GetTopMost write SetTopMost;
  end;

implementation

function WWindow.Find(const Caption: string): Boolean;
begin
  FHandle:= FindWindow(nil, PChar(Caption));
  Result:= FHandle <> 0;
end;

function WWindow.GetTopMost: Boolean;
begin
  Result:= (GetWindowLong(FHandle, GWL_EXSTYLE) and WS_EX_TOPMOST) <> 0;
end;

procedure WWindow.SetTopMost(const Value: Boolean);
const
  InsertAfter: array[Boolean] of HWND = (HWND_NOTOPMOST, HWND_TOPMOST);
begin
  SetWindowPos(FHandle, InsertAfter[Value], 0, 0, 0, 0,
    SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);
end;

Anwendung:

Delphi-Quellcode:

var
  Window: WWindow;
begin
  assert(Window.Find('Unbenannt - Editor'));
  Window.TopMost:= True;
end

Ich finde, das sieht eigentlich ganz praktisch aus... Nur gibt es bei der Zuweisung von TopMost eine AV, wenn er in SetTopMost auf FHandle zugreifen will. ABER: Wenn ich SetTopMost direkt aufrufe, funktioniert alles tadellos...

Woran kann das liegen? Ich meine, es wird wohl schon ein Grund geben, warum object veraltet ist...

Gruss
Shaman

[Shaman]

*schwupps*

[SirThornberry]

wo ist jetzt eigentlich der Unterschied ob du Object oder TObject nimmst (außer das eines wohl veraltet ist)? Hast du eventuell vergessen mit Create die Instanz zu erzeugen.
[Edit]Ich zieh meinen Beitrag zurück. Ich finde zwar nix richtighes zu Object in der Hilfe was das richtige sein könnte aber es scheint kein TObject zu sein sondern nur ein Record mit Funktionen.[/Edit]

[Hawkeye219]

Hallo Shaman,

ich habe mir den erzeugten Assemblercode einmal angesehen. Obwohl beide Varianten (Zugriff über Property und Aufruf des Setters) eigentlich das gleiche bewirken, wird für den Property-Zugriff ein falscher Code erzeugt, der im schlimmsten Fall Speicherinhalte an ungewollten Stellen überschreibt.

Da Borland die Verwendung von Properties im alten Objektmodell nicht offiziell dokumentiert hat, ist von einer Verwendung abzuraten, auch wenn der Compiler die Konstrukte ohne Fehlermeldung übersetzt. Der direkte Aufruf der Setter-Methoden sollte ohne Probleme möglich sein.

Gruß Hawkeye

[Shaman]

@Hawkeye: Danke dir, das ist schon mal aufschlussreich. Kennst Du denn irgend eine Doku für dieses Objektmodell? Es stammt wahrscheinlich noch von Object Pascal, nehme ich an? Es würde mich nämlich schon interessieren...

[mkinzler]

Das "alte" Objektmodell aus Turbo Pascal kennt keine Konstruktoren/Destruktoren und keine Referenzen d.h.
Man hat die Möglichkeiet ein Objekt statisch anzulegen oder dynamisch mit Hilfe eines Zeigers. In diesem Fall muß man sich dann um die entsprechende Referenzierung/Dereferenzierung mit Hilfe von ^ kümmern.
Es gibt keine Zwangserbschema ( allss erbt von TObject) und keine Referenzzählung.

[Shaman]

D.h. es ist eigentlich ein Recordtyp, welches ebenfalls Methoden beinhalten kann. Deshalb würde es sich IMHO hervorragend für Fälle wie im obigen Beispiel eignen... Aber wieso funktionieren Properties nicht richtig?

[Hawkeye219]

Hallo Shaman,

das Objektmodell wurde mit "Turbo Pascal 5.5" eingeführt. Borland bietet den Compiler im Museum zum kostenlosen Download an. Im Text findest du unter dem Bild ("Be Objektive") auch einen Link zu einem PDF-Dokument, welches eine Beschreibung des Objektmodells enthält.

Gruß Hawkeye

[mkinzler]

Zitat:

Aber wieso funktionieren Properties nicht richtig?

Vielleicht weil diese Borland eigentlich erst mit dem neuen Objektmodell in Delphi eingeführt hat.

[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.