Generisches Interface und GUID

[Uwe Raabe]

Noch besser!

Delphi-Quellcode:

var
  int: IMyInterface<Integer>;
  dbl: IMyInterface<Double>;
begin
  int := TMyClass<Integer>.Create(1);
  dbl := TMyClass<Double>.Create(0.1);

  Assert(Supports(int, IMyInterface<Double>));
  Assert(Supports(dbl, IMyInterface<Integer>));

  int := dbl as IMyInterface<Integer>;
  ShowMessage(IntToStr(int.Blub));
end;