Generische Listen

[daywalker9]

Ich bin gerade dabei, mir eine Klasse zu schreiben, die Daten serialisiert und in eine XML speichert und auch wieder laden kann.

Nun stellt sich die Frage, wenn ich eine TObjectList<T> übergebe, kommt ich an den Typen von T ran, damit ich die richtigen Klassen instanzieren kann?

[Stevie]

Da Delphi keine Covarianz unterstützt geht hier nur der Hardcast auf TObjectList<TObject> und/oder das ermitteln des Typs von T mithilfe von Typnamen parsen und RTTI.

Dazu kannst du dir anschauen, wie ich das gemacht habe (die Methoden von TRttiTypeHelper)

[Jens01]

Meinst Du sowas?

Delphi-Quellcode:

GetTypeData(TypeInfo(T)).ClassType = TIrgendwas

[daywalker9]

Das ja TypeInfo von der Liste und nicht die, von dem Typen T der in der TObjecList enthalten ist.

[Stevie]

Andere Alternative, die mir gerade noch einfällt, wäre sowas:

Delphi-Quellcode:

type
  TMySerializer = class
    procedure SerializeList<T: class>(List: TList<T>);
    procedure DeserializeList<T: class, constructor>(List: TList<T>);

procedure TMySerializer.DeserializeList<T>(List: TList<T>);
var
  newItem: T;
begin
  ...
  newItem := T.Create;
  Self.DeserializeObject(newItem);
  List.Add(newItem);
  ...
end;

[daywalker9]

Ah, Idee ist gut, mal schauen.

Danke Stevie!

[webcss]

Also, Du kannst Dir natürlich auch mit folgender function behelfen, solange Dein Typ T eine einfache Klasse ist:

Delphi-Quellcode:

function GetGenericType(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;

Ist zwar 'ne Krücke, funktioniert aber prima in D2010!

[daywalker9]

Hatte ich auch schon ausprobiert, nur bekomme ich nicht alle Typen zurück.

Stevies Gedanken habe ich nun mittlerweile zu Papier gebracht ;)