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!

[himitsu]

Leider kommt man nur an den Namen des Typs und nicht an den Typ selber.

Allerdings können mehrere Typen den selben Namen haben, so daß es über den blosen Namen keine genaue Zuordnung gibt.

[webcss]

Zitat von himitsu:

Leider kommt man nur an den Namen des Typs und nicht an den Typ selber.

Nein, mittels des Klassennamens Deiner spezialisierten Klasse (im Beispiel TMyList= class(TList<TMyClass>) )
bekommst Du den TRTTIType des generischen Items (im Beispiel TMyClass) und damit alle Möglichkeiten, die Dir mit Reflection in TRTTIType für TMyClass zur Verfügung stehen...

Was genau passiert: Im VMT steht für jeden generischen Typ der qualifizierte Name(=deklarierende unit.Klasse), z.B.
unit1.TList<TMyClass>.

Ich lese diese Information und extrahiere TMyClass. Mittels Reflection kann ich nun den TRTTIType für diese Klasse aus der VMT raussuchen...

[himitsu]

MyList.ClassName Liefert nur den unqualifizierten Klassennamen, also was von mehreren gleichnamigen Typen soll denn nun genommen werden?

Delphi-Quellcode:

function GetConcreteGenericType(AClass: TClass): 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
  while Assigned(AClass) and (Pos('<', AClass.ClassName) = 0) do
    AClass := AClass.ClassParent;
  if Assigned(AClass) then
    Result := lCTX.FindType(ExtractQualifiedName(AClass.ClassName))
  else
    Result := nil;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  TheType: TRTTIType;
begin
  TheType := GetConcreteGenericType(TMyList);
  if Assigned(TheType) then
    //ShowMessage(TheType.AsInstance.MetaclassType.ClassName)
    ShowMessage(TheType.ToString)
  else
    ShowMessage('nee, hier gibt''s nix zu sehn');
end;

[Meflin]

Alles schön und gut. Bestand nicht aber der Sinn von Generics genau darin, dass man eben nicht wissen muss (will), um welchen Typ es konkret geht

Wenn ich das unbeding unterscheiden will, kann ich ja gleich auf das altbewährte strohdumme für jeden Typ eine eigene Implementation Prinzip zurückgreifen.

[webcss]

Zitat von himitsu:

MyList.ClassName Liefert nur den unqualifizierten Klassennamen, also was von mehreren gleichnamigen Typen soll denn nun genommen werden?

Mein Fehler: funktioniert nur bei Typezuweisungen ala TMyList=TList<TMyClass>;

Sorry für das missposting, hatte halt nur meinen speziellen Fall (s.o.) im Auge, und da funktioniert es prima...

Zitat von meflin:

in meinem konkreten fall muss ich wissen, welchen typ eine liste verwaltet.