gerundete Zahlen werden nicht weiterverarbeitet

[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!!!!!