maaaaaaaaaaaaaaa ... der blöde VarType
OK, jetzt aber ... hoff' ich
Delphi-Quellcode:
Memo1.Lines.Append('Typ: ' + VarType(V).ToString + ' ' + VarTypeAsText(VarType(V)));
Memo1.Lines.Append('Val: ' + TVarData(V).VInt64.ToString + ' ' + TVarData(V).VUInt64.ToString);
var Tmp: string;
for var i := 0 to High(TVarData(V).RawData) do
Tmp := Tmp + ' ' + TVarData(V).RawData[i].ToHexString;
Memo1.Lines.Append('Bin: ' + Tmp);
Ergebnis:
Typ: 14 Decimal
Val: 7978126718202166279 7978126718202166279
Bin: 8000000E 00000000 F37E3C07 6EB7FFFA