Macht durchaus Sinn zuerst das Objekt zu erstellen und dann daraus ein Interface zu kreieren:
Delphi-Quellcode:
procedure GetAllAccounts( _o: TInterfaceList );
var
tmp: TAccountDataExtend;
begin
for i:= 0 to 4 do begin
tmp:= TAccountDataExtend.Create;
tmp.FID:= i;
_o.Add( tmp );
tmp._AddRef;
end;
end {GetAllAccounts};
Sonst funktionierts nämlich nicht
Die Referenzzählung brauche ich meiner Meinung nach weil ich die InterfaceList zerstöre. Ansonsten bringt er eine
Exception bei beenden des OnClick-Events.
Er gibt mir jetzt in der Deletefunktion meinen gewünschten Wert aus.
Dafür... im Grid nicht mehr
Jetzt zeigt dieses immer "0" an.
Ich bekomme von der Funktion GetAllAccounts eine Interfacelist. Ich sollte diese doch gleich wie beim OnClick-Ereignis in ein TAccountDataExtend casten können?
Delphi-Quellcode:
var
i: IDataObject;
obj: IInterface;
obj3: IDataObject;
begin
obj:= IInterface( Pointer( ListViewMain.Selected.Data ));
if Succeeded( obj.QueryInterface( IDataObject, obj3 )) then begin
ShowMessage( TAccountDataExtend( obj3.XYZ ));
end;
end;
Arbeite übrigens mit Delphi 2007
Vielen Dank