Interface und 'normale' Referenz

[hansmaad]

Zitat von xaromz:

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.

Zitat von quantum:

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