Zitat von
NamenLozer:
Aber wie gebe ich das Objekt dann frei? Ich habe im Hinterkopf, dass man dazu dem Interface nil zuweisen muss. Ist das korrekt?
Wenn du eine Klasse hast, die ein Feld deines Interfaces besitzt, dann wird im Destruktor autom. der Referenzzähler reduziert.
Hier mal ein Beistift, den ich mir jetzt nur im Browser aus den Fingern gesaugt habe.
Du solltest die Meldung aus InnerMiep.DomeSothing sehen, und wenn du Test() verlässt, sollte "Futsch!" erscheinen.
Delphi-Quellcode:
type
ISomeInterface = interface
['...']
procedure DoSomething; stdcall;
end;
InnerMiep = class(TInterfaceObject, ISomeInterface)
public
procedure DoSomething; stdcall;
destructor Destroy; override;
end;
Miep = class(TInterfaceObject, ISomeInterface)
private
fValue : ISomeInterface;
public
// diese property implementiert das Interface
property Value : ISomeInterface
implements ISomeInterface;
procedure AfterConstruction; override;
end;
...
procedure Miep.AfterConstruction;
begin
inherited;
fValue := InnerMiep.Create();
end;
procedure InnerMiep.DoSomething;
begin
ShowMessage('Hmmm, don''t really know what exactly to do here...');
end;
destructor InnerMiep.Destroy;
begin
ShowMessage('Futsch!');
inherited;
end;
...
procedure Test;
var
xyz : ISomeInterface;
begin
xyz := Miep.Create();
xyz.DoSomething();
end;