Data-Pointer in Interfacevariable casten

[RedOne]

Ok. Wenigstens einen Lichtblick in der Zukunft

Eine kurze Frage noch zum löschen. Ich habe es jetzt so gemacht dass im Interface eine Funktion existiert die sich selbst als Objekt zurück gibt.

Delphi-Quellcode:

  IDataObject = interface( IInterface )
    ['{C94DCAC7-CA42-45D3-95D7-9BC321BA2E2A}']
    function Load( _id: Integer ): Boolean;
    function Insert: Boolean;
    function Update: Boolean;
    procedure Delete;
    procedure SetSelfObject( _o: TObject );
    function GetSelfObject: TObject;
  end;

procedure TAccountData.SetSelfObject( _o: TObject );
begin
  FSelfObject:= TAccountDataExtend( _o ); //Cast unnötig
end {SetSelfObject};

function TAccountData.GetSelfObject: TObject;
begin
  Result:= FSelfObject;
end {GetSelfObject};

Aber wie lösche ich mein Objekt nun wieder?
Mittels xy.GetSelfObject.Free wird eine "unnötige Zeigeroperation" ausgelöst.
Ich habe testweise bei der Generierung der Listview meine Objekte noch in eine TObjectList gespeichert und diese durchgeloopt. Auch dies gibt eine "unnötige Zeigeroperation". Blockiert mich das Interface? Wie wäre der korrekte/schöne Weg diese Objekte zu löschen?

Herzlichen Dank

[himitsu]

Das Objekt hinter einem Interface löscht man nicht!

Wenn alle Referenzen auf das Objekt freigegeben sind (Variablen existieren nicht mehr oder wurden auf NIL, bzw. ein anderes Interface gesetzt), dann gibt sich das Interface selber frei,
also dann, wenn es keiner mehr braucht.

[edit]
ach menno, hier sinds ja 2 Objekte ... hmmm

"unnötige Zeigeroperation" ... meinst du vielleich "ungültige" ?

Wenn ja, dann ist der Zeiger falsch, bzw. zeigt nicht auf (d)ein Objekt.

[RedOne]

Ah cool. Eigentlich mag ich es nicht wenn mit jemand Arbeit abnimmt aber in diesem Fall...

Es ist doch nur ein Objekt. In "SelfObject" befindet sich nur eine weitere Referenz auf das Objekt.

Und ja, sollte natürlech "ungültige" heissen