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

[Stevie]

Zitat von 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);

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
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

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 von jaenicke:

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 von Der schöne Günther:

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

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 von Stevie:

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 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.

[jaenicke]

Zitat von Der schöne Günther:

Wenn das jetzt ins Spiel gebrachte 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.

Was aber intern logischerweise selbst ein riesiges case und Konvertierungstabellen nutzt.
Ich selbst nutze daher für unsere Skriptsprache in unserer Kassenanwendung eigene Umwandlungsroutinen, die noch viel mehr automatisch und generisch angesprochen umwandeln können. Da gibt es eine Liste von Stringkonvertern, die dann mit Generics registriert und ebenfalls mit Generics aus der Liste herausgesucht und genutzt werden...

Auf diese Weise habe ich auch RTTI-ähnliche Metainformationen in der Skriptumgebung implementiert, die dann in der IDE bei der Skripteingabe unterstützen, auch visuell.