Inkompatible Typen: 'IMyInterface' und 'TPersistent'

[jbg]

Zitat von berens:

IMyInterface(SelectedObjects.Items[i]).x := 1;
--> Inkompatible Typen: 'IMyInterface' und 'TPersistent'

Gut dass das der Compiler abfängt. Hierbei würdest du den TPersistent-Zeiger als Interface-Zeiger interpretieren.

Zitat:

bla: IMyInterface;
bla := SelectedObjects.Items[i];

Hier verhindert der Compiler die Zuweisung, weil er keine Informationen über den Zusammenhang zwischen dem TPersistent und IMyInterface hat. Diesen Zusammenhang kann man leider nur bei der Deklaration mitteilen.


Bei TComponent kannst du den "as" Operator nutzen:
(SelectedObjects.Items[i] as IMyInterface).x := 1;

Wenn du jedoch mit TPersistent arbeitest, dass kein IInterface implementiert, also auch keine QueryInterface Methode besitzt, musst du auf die Supports() Funktionen ausweichen.

Delphi-Quellcode:

var
  bla: IMyInterface;
begin
  if Supports(SelectedObjects.Items[i], IMyInterface, bla) then
    bla.x := 1;
end;

Das ist ziemlich Umständlich, da hier der "as"-Operator nicht funktioniert weil TPersistent kein IInterface implementiert. Mit TInterfacedPersistent würde das kein Problem sein.

Kleine Hilfsfunktion wenn du einen Einzeiler haben willst.

Delphi-Quellcode:

function IntfCast(Instance: TObject; const IID: TGUID): IInterface;
begin
  if not Supports(Instance, IID, Result) then
    raise EIntfCastError.CreateRes(@SIntfCastError);
end;

var
  Persistent: TPersistent;
begin
  Persistent := Irgendwas;
  IMyInterface(IntfCast(Persistent, IMyInterface).x := 1;
end;