Int64 spinnt oder ich. HILFE!!!!

[Olli73]

Und mit "VarAsType(..., varInt64);" anstatt "Int64(...);" ?

[Papaschlumpf73]

Zitat von Olli73:

Und mit "VarAsType(..., varInt64);" anstatt "Int64(...);" ?

Funktioniert leider auch nicht. Ich habe das Beispiel mal erweitert:

Delphi-Quellcode:

var A, B, D, E: Int64; C: String; V: Variant;
begin
  A := -7978126718202166279;
  V := ADOCon.Execute('SELECT CAST(-7978126718202166279 as bigint)').Fields[0].Value;
  B := Int64(V);
  C := VarToStr(V);
  D := V;
  E := VarAsType(V, varInt64);
  Memo1.Lines.Append('A: ' + A.ToString);
  Memo1.Lines.Append('B: ' + B.ToString);
  Memo1.Lines.Append('C: ' + C);
  Memo1.Lines.Append('D: ' + D.ToString);
  Memo1.Lines.Append('E: ' + E.ToString);
end;

A: -7978126718202166279
B: -7978126718202166272
C: -7978126718202166279
D: -7978126718202166272
E: -7978126718202166272

[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

[Papaschlumpf73]

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

Musste ich etwas anpassen - Val funktioniert:

Delphi-Quellcode:

  try Memo1.Lines.Append('Typ: ' + VarType(V).ToString + ' ' + VarTypeAsText(V)); except on E:Exception do Memo1.Lines.Append('Typ: '+E.Message); end;
  try Memo1.Lines.Append('Val: ' + IntToStr(TVarData(V).VUInt64)); except on E:Exception do Memo1.Lines.Append('Val: '+E.Message); end;
  try Memo1.Lines.Append('Raw: ' + UIntPtr(TLargestVarData(TVarData(V).VAny^)._Reserved1).ToString+ ' ' + UIntPtr(TLargestVarData(TVarData(V).VAny^)._Reserved2).ToString); except on E:Exception do Memo1.Lines.Append('Raw: '+E.Message); end;

Typ: Überlauf bei der Konvertierung einer Variante vom Typ (Decimal) in Typ (Integer)
Val: 7978126718202166279
Raw: Zugriffsverletzung bei Adresse 008168A4 in Modul 'Project2.exe'. Lesen von Adresse F37E3C07

[Papaschlumpf73]

Bin: Zugriffsverletzung bei Adresse 00A76992 in Modul 'Project2.exe'. Lesen von Adresse F37E3C07

[himitsu]

dann lass' erstmal den/die Letzten Zeilen weg.

Hatte das nur blind, nach gutem Wissen und Gewissen zusammengeklöppelt ... die Codevervollständigung hatte nichts gesagt, dass sie es falsch findet

Bei Typ hätte ich jetzt keinen Fehler erwartet

Geh mal in deine Projektoptionen und schalte (vorübergehend) die Überlauf und Bereichsprüfung ab. (die ist seit ein paar Delphiversionen standardmäßig aktiv)
Projektoptionen > Delphi-Compiler > Compilieren > Laufzeitfehler > Überlaufprüfung / Bereichsprüfung = off

Delphi-Quellcode:

Memo1.Lines.Append('Typ: ' + VarType(V).ToString);
Memo1.Lines.Append('Typ: ' + VarTypeAsText(V));

Das Erste geht aber?

[himitsu]

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