Casten nach etwas generischem

[Der schöne Günther]

Angenommen ich habe

Delphi-Quellcode:

   uses System.Rtti;

   TVirtualInterfaceEx = class(TVirtualInterface)
      class function Construct<T: IInterface>(..): T;
   end;

mit

Delphi-Quellcode:

class function TVirtualInterfaceEx.Construct<T>(...): T;
var
   virtualInterface: TVirtualInterface;
begin
   virtualInterface := TVirtualInterface.Create( TypeInfo(T) );
   Result := (virtualInterface as T); // "Error E2015"
   (...);
end;

Der Compiler mag das "as T" nicht, obwohl T eigentlich auf IInterface eingeschränkt ist. System.SysUtils.Supports(..) hat das gleiche Problem.

Gibt es hier eine Lösung? Kann ich eine Instanz auf "T" casten wenn T ein IInterface ist?

[Der schöne Günther]

Ich habe eine Lösung gefunden und sie war einfacher als gedacht. Man kommt relativ einfach an die TGUID des Interfaces und das kann man dann für Supports(..) verwenden:

Delphi-Quellcode:

   guid := GetTypeData( TypeInfo(T)).Guid;
   Supports(virtualInterface, guid, Result);

[Mavarik]

Das war jetzt aber nur für Interfaces gültig..

[Neutral General]

für Klassen geht einfach ein harter cast T(objekt)

[peterbelow]

Zitat von Der schöne Günther:

Ich habe eine Lösung gefunden und sie war einfacher als gedacht. Man kommt relativ einfach an die TGUID des Interfaces und das kann man dann für Supports(..) verwenden:

Delphi-Quellcode:

   guid := GetTypeData( TypeInfo(T)).Guid;
   Supports(virtualInterface, guid, Result);

Dir ist schon klar das Interfaces nicht unbedingt eine GUID haben müssen, oder?

[Der schöne Günther]

Ja, aber in meinem Fall ist das unerheblich. In diesem Fall bekommt man eine leere GUID zurück. Ich brauchte nur dass meine Methode eine gültige Interface-Referenz ausspuckt und das tut sie über Supports(..) lustigerweise sogar wenn man eine leere GUID reinsteckt. 😎

[Stevie]

Zitat von Der schöne Günther:

lustigerweise sogar wenn man eine leere GUID reinsteckt. 😎

Ja, aber auch nur weil TVirtualInterface.QueryInterface die angefragte GUID mit der des virtuell implementierten Interfaces vergleicht, wenn die beide leer sind, ist der Vergleich auch True.