Data-Pointer in Interfacevariable casten

[himitsu]

tmp._AddRef; brauchst du bei einer InterfaceList nicht, da diese die Referenzzählung schon richtig behandelt.

also ab Delphi 2010 soll es ja nun so gehn (davor gibt es keinen offiziellen Weg, um aus einen Interface wieder ein Objekt zu machen)
> aber sowas würde ich hier nicht machen

Delphi-Quellcode:

var tmp: IInterface;

tmp:= TAccountDataExtend.Create;
(tmp as TAccountDataExtend).FID:= i;
_o.Add( tmp );

oder es erst noch als Objekt belassen und dann direkt übergeben (später umwandeln lassen)

Delphi-Quellcode:

var tmp: TAccountDataExtend;

tmp := TAccountDataExtend.Create;
tmp.FID:= i;
// aber tmp nicht zwischenzeitlich als Interface verwenden!!!
_o.Add( tmp );

oder es erst noch als Objekt belassen und später in ein Interface umwandeln

Delphi-Quellcode:

var otmp: TAccountDataExtend;
  tmp: IInterface;

otmp := TAccountDataExtend.Create;
otmp.FID:= i;
// aber tmp nicht zwischenzeitlich als Interface verwenden!!!
tmp := otemp;
// jetzt kann man das Interface verwenden
_o.Add( tmp );

oder besser doch so:

Delphi-Quellcode:

var tmp: IInterface;

tmp := TAccountDataExtend.Create(i);
_o.Add( tmp );

also entweder dein FID im Constructor mit übergeben
oder das FID auch im Interface verfügbar machen

Delphi-Quellcode:

IDataObject = interface( IInterface )
  ['{C94DCAC7-CA42-45D3-95D7-9BC321BA2E2A}']
  procedure Delete;
  property FID read ... write ...;  // bzw. nur eine SetFID-Prozedur
end;

var tmp: IInterface;

tmp := TAccountDataExtend.Create;
tmp.FID := i;  // tmp.SetFID(i);
_o.Add( tmp );