noch eine winzige Erweiterung...
Delphi-Quellcode:
Memo1.Lines.Append('Typ: ' + VarType(V).ToString + ' ' + VarTypeAsText(V));
Memo1.Lines.Append('Val: ' + TVarData(V).VInt64.ToString + ' ' + TVarData(V).VUInt64.ToString);
Memo1.Lines.Append('Raw: ' + UIntPtr(TLargestVarData(TVarData(V).VAny^)._Reserved1).ToString
+ ' ' + UIntPtr(TLargestVarData(TVarData(V).VAny^)._Reserved2).ToString);
var Tmp: string;
for var i := 0 to 7{simplyunknown} do
Tmp := Tmp + PAnsiChar(TVarData(V).VUnknown)[i];
Memo1.Lines.Append('Bin: ' + Tmp);
[edit] aktualisiert
