Hallo,
wenn es nur darum geht, eine Funktion aufzurufen, kannst Du auch mit
const
arbeiten:
Delphi-Quellcode:
procedure MachBuh(const b : IMachtBuh);
begin
b.Buh;
end;
Dadurch wird der Referenzzähler beim Aufruf nicht verändert und folglich das Objekt am Ende nicht freigegeben. Man sollte übrigens immer
const
verwenden, das vermeidet Fehler und ist außerdem noch schneller.
Gruß
xaromz
Guter Tipp. Dazu aber (wenn zur Zeit für mich zwar nicht relevant) mal die Frage, ist der Referenzzähler von Interfaces Thread sicher? Denn wenn MachBuh(const b : IMachtBuh); den Referenzzähler nicht inkrementiert, könnte ein anderer Thread das Objekt löschen. Oder ist die Sicherheit generell nicht gegeben.
...Besser ein Interface für die benötigten Methoden einführen und nichts anderes als die Interfaces benutzen.
Delphi-Quellcode:
IMachtWasAnderes = interface
procedure WasAnderes;
end;
Foo = class(TInterfacedObject, IMachtBuh, IMachtWasAnderes)
Danach hatte ich ja auch schon gefragt. Wie würdest du denn damit die Funktion aus dem ersten Beitrag schreiben?