Den konkreten Typ eines Generics ermitteln

[webcss]

Hallo alle zusammen,

ein kleines Nebenprodukt, das bei der Arbeit an meinem ORM abgefallen ist. Zumindest unter D2010 ist es so, dass man mit den Bordmitteln nicht an den eigentlichen Typ eines Generics herankommt. Bsp.

Delphi-Quellcode:

type
  TMyList= class(TList<TMyClass>);

Leider kann man hier trotz RTTI und Reflection nicht an TMyClass kommen

Mit dieser kleinen Routine ist es aber doch möglich:

Delphi-Quellcode:

function GetConcreteGenericType(const AName: string): TRTTIType;

  function ExtractQualifiedName(const AName: string):string;
  var i: integer;
  begin
    i:= succ(pos('<', AName));
    Result:= copy(AName, i, pos('>', AName)-i);
  end;

var lCTX: TRTTIContext;
begin
  Result:= lCTX.FindType(ExtractQualifiedName(AName));
end;

Sie liefert einem den TRTTIType des Generics und damit alle Informationen zur Weiterverarbeitung:

Delphi-Quellcode:

...
MyList.Add(GetConcreteGenericType(MyList.ClassName).AsInstance.MetaclassType.Create);

Vielleicht ist das ja jemandem nützlich, vielleicht kann man das auch noch verbessern; für mich ists erstmal ausreichend...

Frohe Weihnachten!