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.

Delphi-Quellcode:

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:

Zitat von Der schöne Günther (Beitrag 1433979)

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:

Zitat von Der schöne Günther (Beitrag 1434004)

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.