Generics: Ungültige Typumwandlung

[Codewalker]

Hallo zusammen.

Mir machen mal wieder die Generics Kopfschmerzen. Ich möchte in einer Settings-Klasse eine generische get-Funktion haben, die mir den gewünschten Typ direkt castet. Das ganze sollte meiner Meinung nach so aussehen:

Delphi-Quellcode:

// Nur als Hinweis:
FValues = TDictionary<string, Variant>;

{ ...}

function TSettings.GetItem<T>(Key: String): T;
begin
  Result := T(FValues[Key]);
end;

Das ganze wollte ich dann z.B. so aufrufen:

Delphi-Quellcode:

var
 a: TMeineKlasse;
 i: Integer;
begin
 a := Settings.GetItem<TMeineKlase>('blabla');
 i := Settings.GetItem<Integer>('neZahl');
 // usw.

Leider bekomme ich als Fehler:

Code:

Ungültige Typumwandlung

bei meinem cast. Warum geht das nicht und was müsste ich denn ändern?

[SirThornberry]

Das hat nichts mit den Genercis zu tun sondern damit das du einen Variant versuchst auf eine Objektinstanz zu casten.

[Stevie]

Zitat von SirThornberry:

Das hat nichts mit den Genercis zu tun sondern damit das du einen Variant versuchst auf eine Objektinstanz zu casten.

Hat sehr wohl mit Generics zu tun, dass er einen Variant auf T zu hardcasten versucht.

In deinem Fall solltest du zu Rtti.TValue greifen. Das ist der Container, der alles aufnehmen kann, was es so gibt (und nein, Variant kann das nicht).

Delphi-Quellcode:

FValues = TDictionary<string, TValue>;

function TSettings.GetItem<T>(Key: string): T;
begin
  Result := FValues[Key].AsType<T>;
end;

Ein Wort der Warnung an dieser Stelle: Im Gegensatz zu Variant, bei welchem einige implizite Typenkonvertierungen durchgeführt werden, wirft TValue.AsType<T> eine EInvalidCast Exception, wenn das was drin steht, nicht direkt zuweisungskompatibel zu T ist.

[Codewalker]

Das mit TValue kannte ich noch nicht. Das klingt deutlich sinniger als Variant. Ich werde das versuchen, danke

[Codewalker]

Okay, sieht für die Abfrage ganz gut aus. Aber ich darf jetzt keine Werte mehr in das Dictionary einfüllen

Data.Add('key', IrgendeinVariant);

Code:

[DCC Fehler] DataQueries.pas(56): E2010 Inkompatible Typen: 'TValue' und 'Variant'

Edit: Habs gefunden.

Data.Add('key', TValue.From<Variant>(Inhalt)); Quelle: http://stackoverflow.com/questions/2...-to-store-data

[Stevie]

Andere Möglichkeit wäre, TValue.FromVariant zu benutzen, dann wird nämlich der Datentyp benutzt, der intern im Variant steckt.

Vorteil: Wenn du im Variant nen string stehen hast, wird nicht der Variant, in dem der string steht im TValue gespeichert, sondern der string.
Nachteil: Wie im vorherigen Post erwähnt, geht dir eventuell notwendige implizite Typenkonvertierung verloren

Generell kann ich empfehlen, auf Variants zu verzichten, sofern du einen generischen Ansatz verfolgst. Benutze an Stellen, wo du zur Compiletime den Type nicht kennst, lieber TValue, um Werte auszutauschen. An allen anderen Stellen, benutze den konkreten Datentyp. TValue verfügt für die meisten Standardtypen über überladene Implicit Operatoren, die dir den Aufruf von z.B. TValue.From<Integer>(i) ersparen.