Ich weiß den Typ und den Inhalt als String. Wie mache ich ein TValue daraus?

[Der schöne Günther]

Folgendes Szenario: Ich habe zwei Strings:

• valueTypeStr = 'tkInteger'
• valueContentStr = '42'

Ich möchte daraus ein TValue-Objekt machen. Natürlich mit dem Typ tkInteger. Es sind doch eigentlich nur zwei Schritte: Den zum String valueType passenden TTypeKind finden, und ein TValue-Objekt erstellen.

Zu dem String den passenden Typ zu finden ist einfach:

Delphi-Quellcode:

   valueType := TTypeKind(
      GetEnumValue(
         TypeInfo(TTypeKind), valueTypeStr
      )
   );

.

Nur wie lege ich nun ein TValue an? Alle generischen Funktionen wollen in ihren eckigen Klammern einen "expliziten Typen", etwas wie "Integer" oder "String". Den habe ich nicht. Ich habe doch nur meinen

Delphi-Quellcode:

TTypeKind

:(.

Bleibt mir nun nichts anderes übrig, als eine Riesen case-Anweisung aufzuziehen? "Wenn valueType = tkInteger dann meinTValue := TValue.From<Integer>(valueContent.toInteger());" usw.

Mir gehen die Ideen aus :pale:

[Bjoerk]

Du könntest dir deinen eigenen Variant zusammenbasteln und einen Item, der ein Feld davon hat. Und dann eine Liste dieser Items. Dann bräuchtest du das case nur innerhalb dieses Items. Oder hab ich dich jetzt ganz falsch verstanden?

[Union]

Zitat:

Ich möchte daraus ein TValue-Objekt machen

Machen = Make.

[Der schöne Günther]

Ich bekomme es einfach nicht hin.

Mit einem Variant habe ich es auch mal versucht. Aber ich kann da ja nur meinen String reinstecken.

Mit

Delphi-Quellcode:

TValue.Make

komme ich auch nicht weiter: Ich kann problemlos ein TValue-Objekt mit dem Typ tkString erstellen. Aber ich bin absolut hilflos wenn ich gerne ein TValue-Objekt vom Typ

Delphi-Quellcode:

tkInteger

hätte. Ich finde keine RTTI-Methode die auch nur den geringsten Versuch unternimmt, einen String nach Integer zu casten.

Natürlich kann ich das von Hand machen. Und das tue ich momentan auch für Integer, Single, Double, String, ... Aber das macht doch so keinen Spaß.

Zusammenfassung:
Ich möchte ein Feld oder eine Property eines Objekts über die RTTI setzen. Für

Delphi-Quellcode:

SetValue(..)

brauche ich ein

Delphi-Quellcode:

TValue

-Objekt. Ich kann nicht ein TValue-Objekt vom Typ String und dem Inhalt '42' nehmen. Ich bin auch zu dumm, ein TValue-Objekt vom Typ Integer anzulegen, obwohl ich weiß, dass es vom TTypeKind 'tkInteger' sein soll.

Was für ein schwarzer Tag.


Anhang:
Gleiche Frage auf SO - Gleiche unbefriedigende Antwort.

[Union]

Also die ganzen As... machen ja ein Typecast. Das geht nicht zwischen integer und string. Deshalb muß das händisch erfolgen:

Delphi-Quellcode:

s := '42';
// Die 3 Varianten sind möglich
Value := TValue.From<string>(s);
Value := TValue.Make(@s, TypeInfo(string), Value);
Value := s;
// Umwandlung, NICHT cast mit .AsInteger
i := StrToIntDef(Value.AsString, 0);

[Stevie]

Zitat:

Zitat von Union (Beitrag 1225108)

Also die ganzen As... machen ja ein Typecast. Das geht nicht zwischen integer und string. Deshalb muß das händisch erfolgen:

Delphi-Quellcode:

s := '42';
// Die 3 Varianten sind möglich
Value := TValue.From<string>(s);
Value := TValue.Make(@s, TypeInfo(string), Value);
Value := s;
// Umwandlung, NICHT cast mit .AsInteger
i := StrToIntDef(Value.AsString, 0);

Das ist nicht, was er möchte. Er möchte im TValue schon den richtigen Typ stehen haben (bzw den TypeKind), damit er das an die RTTI Methoden übergeben kann. Diese raisen nämlich eine Exception, wenn der Typ im übergebenen TValue nicht dem der Property z.B. stimmt.

Um das Case und die entsprechenden Typenkonvertierungen der von dir zu unterstützenden TypeKinds kommst du nicht herum. Auch der Umweg über ein Variant wird dir nix bringen, denn auch ein Variant weiß intern, was für eine Art Typ drin steckt. Dieses wird beim TValue.FromVariant überprüft bzw übernommen. Schreibst du dort also einen Variant rein, in dem '42' steht (also ein String) wird dann ein TValue mit der TypeInfo string (TypeKind tkUString) daraus. Übergibst du das an SetValue einer Integer Property, knallts.

Also brauchst du sowas:

Delphi-Quellcode:

function FromString(const AValue: string; ATypeKind: TTypeKind): TValue;
begin
  case ATypeKind of
    tkInteger: Result := StrToInt(AValue);  // nutzt die Implicit Operator Überladung, würde auch mit TValue.From<Integer>(StrToInt(AValue)) funktionieren
  end;
end;

Bei der Verwendung von TValue muss man sich immer in den Sinn rufen, dass diese keine Typenkonvertierung unterstützen, die über eine direkte Zuweisungskompatibilität hinausgeht (also z.b. keine Konvertierung eines strings in ein Integer, Datum in string, etc). Auch die As... Methoden nicht. Einzig und allein mit ToString kann das meiste als string rausrücken.

[Der schöne Günther]

Ganz genau so ist es :thumb:
Vielen Dank für die ausführliche Antwort!

Find ich etwas blöd, dass es da nichts gibt. Ich habe intern auch etwas in der System.RTTI-Unit gewühlt. Da gibt es eine Matrix, welche Methoden bei Type-Casts von X nach Y aufgerufen werden. Bei String nach Integer versucht er es noch nichtmal, sondern nimmt die generische "Ne, das ist unmöglich"-Methode.

Ich meine, man hätte es ja wenigstens versuchen können :-D

Kein Beinbruch, aber blöd finde ich das trotzdem. Mit case über alle in Frage kommenden Typen zu rödeln ist hässlich.

[jaenicke]

Funktionieren tut das schon:

Delphi-Quellcode:

type
  TVarTypeEnum = (vtEmpty, vtNull, vtSmallint, vtInteger, vtSingle, vtDouble, vtCurrency, vtDate, vtOleStr, vtDispatch, vtError,
    vtBoolean, vtVariant, vtUnknown, vtDecimal, varUndef0F, vtShortInt, vtByte, vtWord, vtLongWord, vtInt64, vtUInt64);

function GetRttiValueFromString(const AValue, AType: string): TValue;
var
  ValueType: TVarTypeEnum;
begin
  ValueType := TVarTypeEnum(GetEnumValue(TypeInfo(TVarTypeEnum), 'vtInteger'));
  Result := TValue.FromVariant(VarAsType('42', Integer(ValueType)));
end;

// benutzen:
var
  MyValue: TValue;
begin
  MyValue := GetRttiValueFromString('42', 'vtInteger');
  ShowMessage('Inhalt: ' + MyValue.ToString + ' (' + MyValue.TypeInfo.Name + ')');
end;

[Stevie]

Zitat:

Zitat von jaenicke (Beitrag 1225127)

Funktionieren tut das schon:

Mit dem kleinen aber feinen Unterschied, dass du TVarType nimmst, der TE aber den TTypeKind hat, welcher nicht bei der Variant Typkonvertierung funktioniert.

Zitat:

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

Find ich etwas blöd, dass es da nichts gibt. Ich habe intern auch etwas in der System.RTTI-Unit gewühlt. Da gibt es eine Matrix, welche Methoden bei Type-Casts von X nach Y aufgerufen werden. Bei String nach Integer versucht er es noch nichtmal, sondern nimmt die generische "Ne, das ist unmöglich"-Methode.

Ich meine, man hätte es ja wenigstens versuchen können :-D

Kein Beinbruch, aber blöd finde ich das trotzdem. Mit case über alle in Frage kommenden Typen zu rödeln ist hässlich.

Nochmal: die RTTI ist kein Werkzeug, um aus Delphi eine Scriptsprache zu machen, wo man lustig alles zu allem zuweisen kann und erst am ende Kappes raus kommt. Die strikten Konvertierungsregeln haben ihren Grund. Wenn ich eine Integer Property zuweisen muss, dann kann ich da auch nur eine Integer (oder einen direkt vom Compiler zulässigen zuweisungskompatiblen Typen) reinstecken. Rufe ich über RTTI eine Methode auf welche als Parameter einen String erwartet, dann muss ein String dort rein und kein Integer (den die RTTI ja in ein String umwandeln könnte).

Btw ein case rödelt nicht, sondern ist ein direkter Sprung an die richtige Stelle ;)
Ich finds übrigens eher hässlich, dass man irgendwo Werte als strings mit ihren TypeKinds speichert

[Der schöne Günther]

Zitat:

Zitat von Stevie (Beitrag 1225131)

wo man lustig alles zu allem zuweisen kann und erst am ende Kappes raus kommt. Die strikten Konvertierungsregeln haben ihren Grund.

Das habe ich schon verstanden. Mir ging es darum, dass ich mit den RTTI-Informationen allein nichts parsen kann, ohne manuell dauernd explizit von Integer und String zu reden.

Wenn das jetzt ins Spiel gebrachte

Delphi-Quellcode:

VarAsType

(Danke an dieser Stelle) nun diese Lücke schließt, dann bin ich glücklich. Ändere ich die Gegenseite einfach ab, eben nicht den TTypeKind, sondern den TVarType als String zu schreiben. :twisted: