[Erledigt]0 ist nicht gleich 0???

[fkerber]

Hi!

Ein Screenshot sagt bekanntlich mehr als tausend Wort: s. Anhang

Der eingekreiste Wert ist jeweils der selbe (oder sollte es sein (i = 1)).
Der Wert, mit dem er rechnen will führt dummerweise zu einer InvalidFloatingPoint Operation.

Was tun?


Ciao Frederic

[Luckie]

Erste Regel beim Vergleichen von Fließkommazahlen:

Zitat:

Vergleiche nie nicht auf null.

Grund: Interne Rundungsfehler machen das unmöglich und resultieren in deinem Problem. Je nach gewünschter Genauigkeit prüfe auf 0,0001 oder eben genauer.

[fkerber]

Hi!

Hmm, ok
Ist leider kein Null-Vergleich.

Delphi-Quellcode:

if distances[roundtrip[i],roundtrip[i]+1] + distances[roundtrip[j],roundtrip[j]+1] > distances[roundtrip[i],roundtrip[j]] + distances[roundtrip[i+1],roundtrip[j+1]]

Bei dieser Zeile spuckt er dann den Fehler aus. Er kann also entweder bereits die Addition oder den Vergleich nicht mehr durchführen. Aber was soll ich dagegen tun?


Edit:
Noch als Anmerkung:
Die Werte sind mit Roundto auf 3 Nachkommastellen gerundet!


Ciao Frederic

[Neotracer64]

IsZero von der Unit Math ist hilfreich ;)

[fkerber]

Hi!

Ich will ja nicht auf 0 Vergleichen, sondern die o.g. Zeile ausrechnen/vergleichen!


Ciao Frederic

[Der_Unwissende]

Hi,
ich weiß ist eine dumme Frage, aber bist du dir sicher, dass der Fehler in dieser Zeile fliegt?
Könntest du einfach mal die Abfrage zerlegen (also vor der if Abfrage mal die beiden Summen einzeln berechnen) und dann mal schauen, welche Berechnung den Fehler verursacht?
Also ich seh zumindest keinen Grund für eine solche Exception.

Gruß Der Unwissende

[fkerber]

Hi!

Ja, der Fehler liegt eindeutig da.

Delphi-Quellcode:

floattostr(distances[roundtrip[j],roundtrip[j]+1]));

z.B. hier entsteht der selbe Fehler. Problem scheint der Wert in distances[j,j+1] zu sein.
Obwohl er vorher auf 3 Stellen gerundet wurde.
Ich blick nicht durch....


Ciao Frederic

[Der_Unwissende]

Ok, hast du mal geschaut, ob es sich noch um einen gültigen Wert handelt? Also ich denke, dass Problem kommt, durch den Vergleich einer sehr kleinen Zahl (e-4000 oder so?) mit etwas anderem. Prüf mal mit isNaN oder so ob die Werte von Delphi noch als gültig angesehen werden.

Gruß Der Unwissende

[fkerber]

Hi!

Ja, genau!
Siehe den Screenshot oben. Trotz runden auf 3 Nachkommastellen steht nicht 0 drin sondern, ein verdammt kleiner Wert > 0.

Ich schau mal, was ich mit isNAN tun kann.
Edit: hat leider auch nichts gebracht:

Delphi-Quellcode:

 if isNaN(distances[roundtrip[i],roundtrip[i]+1]) then
 showmessage('gleich knallts');
 if isNaN(distances[roundtrip[j],roundtrip[j]+1]) then
 showmessage('gleich knallts');


  showmessage(floattostr(distances[roundtrip[i],roundtrip[i]+1] + distances[roundtrip[j],roundtrip[j]+1]));

Es kommt keine Showmessage 'gleich knallts', aber es knallt danach!


Ciao Frederic

[fkerber]

Hi!

Sry für den ganzen Trouble, aber der Fehler hat sich an anderer Stelle gezeigt.
Es war ein Fehler in der Code-Vorlage (kann ich jetzt schlecht erklären, ohne den ganzen Code auseinander zu nehmen). Auf jeden Fall hat er nicht 0 gelesen, sondern irgendeinen Speicherbereich!

:wall: :wall: :wall:


Ciao Frederic