if Var1(0.01) > Var2(0.01) = True

← →
proc © (2002-08-05 15:19) [0]

Такой финт:

var
V1: Real;
V2: Currency;

begin
V1 := 0.01;
V2 := 0.01;
if V1 > V2 then DoSom;
end;

Почему V1 > V2? и как это исправить.

Спасибо

← →
MBo © (2002-08-05 15:38) [1]

delphi.vitpc.com
hello world
Неочевидные особенности вещественных чисел

← →
kull © (2002-08-05 18:45) [2]

> ... и как это исправить.

Сравнивать числа с заданной точностью.

>Сравнивать числа с заданной точностью.
Т.е. умножать, скажем, на 100 (если нужна точность до 2-го знака), брать trunc"и и сравнивать получившиеся целые числа.

if Var1(0.01) > Var2(0.01) = True Найти похожие ветки