Int64 spinnt oder ich. HILFE!!!!

[himitsu]

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