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ß