AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Int64 spinnt oder ich. HILFE!!!!
Thema durchsuchen
Ansicht
Themen-Optionen

Int64 spinnt oder ich. HILFE!!!!

Ein Thema von Papaschlumpf73 · begonnen am 5. Nov 2024 · letzter Beitrag vom 6. Nov 2024
Antwort Antwort
Seite 1 von 2  1 2      
Papaschlumpf73
Online

Registriert seit: 3. Mär 2014
Ort: Berlin
424 Beiträge
 
Delphi 12 Athens
 
#1

Int64 spinnt oder ich. HILFE!!!!

  Alt 5. Nov 2024, 17:40
Datenbank: SQL-Server • Version: 2019 • Zugriff über: ADO
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
  Mit Zitat antworten Zitat
Benutzerbild von Sinspin
Sinspin

Registriert seit: 15. Sep 2008
Ort: Dubai
674 Beiträge
 
Delphi 10.3 Rio
 
#2

AW: Int64 spinnt oder ich. HILFE!!!!

  Alt 5. Nov 2024, 18:03
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 ...?
Stefan
Nur die Besten sterben jung
A constant is a constant until it change.

Geändert von Sinspin ( 5. Nov 2024 um 18:09 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.430 Beiträge
 
Delphi 12 Athens
 
#3

AW: Int64 spinnt oder ich. HILFE!!!!

  Alt 5. Nov 2024, 18:06
Hast du mal geprüft was das Feld für einen Delphi-Typ hat?
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Papaschlumpf73
Online

Registriert seit: 3. Mär 2014
Ort: Berlin
424 Beiträge
 
Delphi 12 Athens
 
#4

AW: Int64 spinnt oder ich. HILFE!!!!

  Alt 5. Nov 2024, 18:07
Wenn man die Int64()-Funktion weglässt, sieht es leider genauso aus:

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

Registriert seit: 3. Mär 2014
Ort: Berlin
424 Beiträge
 
Delphi 12 Athens
 
#5

AW: Int64 spinnt oder ich. HILFE!!!!

  Alt 5. Nov 2024, 18:13
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...
  Mit Zitat antworten Zitat
Benutzerbild von Sinspin
Sinspin

Registriert seit: 15. Sep 2008
Ort: Dubai
674 Beiträge
 
Delphi 10.3 Rio
 
#6

AW: Int64 spinnt oder ich. HILFE!!!!

  Alt 5. Nov 2024, 18:56
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.
Stefan
Nur die Besten sterben jung
A constant is a constant until it change.
  Mit Zitat antworten Zitat
Papaschlumpf73
Online

Registriert seit: 3. Mär 2014
Ort: Berlin
424 Beiträge
 
Delphi 12 Athens
 
#7

AW: Int64 spinnt oder ich. HILFE!!!!

  Alt 5. Nov 2024, 19:37
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));
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.430 Beiträge
 
Delphi 12 Athens
 
#8

AW: Int64 spinnt oder ich. HILFE!!!!

  Alt 5. Nov 2024, 20:38
Kann man denn im Debugger nicht sehen was passiert?
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von Sinspin
Sinspin

Registriert seit: 15. Sep 2008
Ort: Dubai
674 Beiträge
 
Delphi 10.3 Rio
 
#9

AW: Int64 spinnt oder ich. HILFE!!!!

  Alt Gestern, 08:54
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.
Stefan
Nur die Besten sterben jung
A constant is a constant until it change.
  Mit Zitat antworten Zitat
Papaschlumpf73
Online

Registriert seit: 3. Mär 2014
Ort: Berlin
424 Beiträge
 
Delphi 12 Athens
 
#10

AW: Int64 spinnt oder ich. HILFE!!!!

  Alt Gestern, 10:32
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.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz