gerundete Zahlen werden nicht weiterverarbeitet

[Caps]

Man kann die "Gleichheit" von zwei Real-Zahlen auch so testen:

Delphi-Quellcode:

var
   a, b // die zu vergleichenden Werte
   epsilon: Real;

epsilon := 1e-8; // irgendeine Genauigkeit (hier 10^-8)

if abs(a-b) < epsilon then showmessage('a und b sind gleichgroß');

Gruß

[himitsu]

Statt dem manuellen Vergleich, kann man auch gleich die passenden Funktionen nutzen, da sieht man dann eher, was gemacht wird.
IsZero SameValue CompareValue Sign InRange

zu IsZero:
0 ist zwar einer der wenigen Werte, welche man theoretisch direkt vergleichen könnte, aber wenn die 0 das Ergebnis einer Berechnung ist, dann muß es ja nicht ganz genau 0 sein.
z.B.: 18 - fast genau 18 = nur fast 0

[Furtbichler]

Zitat von Caps:

Man kann die "Gleichheit" von zwei Real-Zahlen auch so testen:

Delphi-Quellcode:

var
   a, b // die zu vergleichenden Werte
   epsilon: Real;

epsilon := 1e-8; // irgendeine Genauigkeit (hier 10^-8)

if abs(a-b) < epsilon then showmessage('a und b sind gleichgroß');

Gruß

Genau um so etwas nicht per Hand zu programmieren, sind die von himitsu aufgelisteten Funktionen da. Denn diese 'irgendeine Genauigkeit' ist nicht so einfach vorzugeben. Wenn Du im Nanometerbereich arbeitest, dann ist dein epsilon viel zu groß, bei Lichtjahren allerdings viel zu klein (Basiseinheit Meter).

Da ist 'SameValue' mit dem defaultwert 'epsilon=0' schon pfiffiger. Schau Dir mal den Quelltext an.

[vitapower]

Habe mit integer gelöst, war die einfachste Lösung.
Vielen Dank an alle!!!!!