Int64 spinnt oder ich. HILFE!!!!

[Papaschlumpf73]

Eigentlich wollte ich nur IDs aus einer Datenbank übernehmen. Jetzt stellt sich raus, dass die alle falsch sind. Es ist auch egal, ob es eine SQL-Server-DB oder eine IBM-DB2-Datenbank ist. Die drei Zahlen im Beispiel sind identisch - nur nicht in der Ausgabe.

Delphi-Quellcode:

procedure TFMain.Button2Click(Sender: TObject);
var A, B: Int64; C: String;
begin
A:=-7978126718202166279;
B:=Int64(DM.ADOCon.Execute('SELECT CAST(-7978126718202166279 as bigint)').Fields[0].Value);
C:=VarToStr(DM.ADOCon.Execute('SELECT CAST(-7978126718202166279 as bigint)').Fields[0].Value);
Memo1.Lines.Append('A: '+A.ToString);
Memo1.Lines.Append('B: '+B.ToString);
Memo1.Lines.Append('C: '+C);
end;

Und hier das Ergebnis in Memo1 - seht euch mal die letzten Ziffern an:
A: -7978126718202166279
B: -7978126718202166272
C: -7978126718202166279

[Sinspin]

Wenn ich das richtig sehe dann haut nur B nicht hin.
Und da gibt es nur eine Option, rausbekommen was VarToStr anders macht als die Funktion Int64.

Als was, als welcher Typ, kommt "bigint" in die Variante die dann in Int64 convertiert wird ...?

[Uwe Raabe]

Hast du mal geprüft was das Feld für einen Delphi-Typ hat?

[Papaschlumpf73]

Wenn man die Int64()-Funktion weglässt, sieht es leider genauso aus:

B:=DM.ADOCon.Execute('SELECT CAST(-7978126718202166279 as bigint)').Fields[0].Value;

[Papaschlumpf73]

Zitat von Uwe Raabe:

Hast du mal geprüft was das Feld für einen Delphi-Typ hat?

Delphi-Quellcode:

if DM.ADOCon.Execute('SELECT CAST(-7978126718202166279 as bigint)').Fields[0].Type_=adBigInt
then Memo1.Lines.Append('Treffer');

Der Feldtyp passt schon...

[Sinspin]

adBigInt = 20 = varInt64. Das passt. Der Varianten Converter scheint ja auch zu funktionieren.

Also muss man anstatt direkter Zuweisung, was zu einem internen Cast auf Int64 zu führen scheint, VarToStr nutzen um dann wieder in Int64 zu konvertieren.
Hast Du das mal probiert? Auch wenn es bescheuert ist.

[Papaschlumpf73]

Zitat von Sinspin:

adBigInt = 20 = varInt64. Das passt. Der Varianten Converter scheint ja auch zu funktionieren.
Also muss man anstatt direkter Zuweisung, was zu einem internen Cast auf Int64 zu führen scheint, VarToStr nutzen um dann wieder in Int64 zu konvertieren.
Hast Du das mal probiert? Auch wenn es bescheuert ist.

Das ist wirklich bescheuert - aber es funktioniert. Das ist doch kreuzgefährlich, wenn da so ein Murks passiert.
D:=StrToInt64(VarToStr(DM.ADOCon.Execute('SELECT CAST(-7978126718202166279 as bigint)').Fields[0].Value));

[Uwe Raabe]

Kann man denn im Debugger nicht sehen was passiert?

[Sinspin]

Ich habe nur Delphi 11 hier. Habe mich ein bisschen durch die Sourcen gegraben. Sieht so aus als wenn es 3 Methoden gibt mit denen intern umgewandelt wird. Interessant wäre es zu sehen was wirklich im fall des Fehlers genommen wird.
Aber, das ist eigentlich ein Fall für Emba, denn egal wie, es sollte immer der gleiche Wert rauskommen.

[Papaschlumpf73]

Zitat von Uwe Raabe:

Kann man denn im Debugger nicht sehen was passiert?

In den letzten 30 Jahren habe ich noch nie einen Debugger benutzt. Da müsste ich mich erst mal reinfummeln.