Циклы

[JUDAS]

Раз у Вас обнаружилась такая брешь в познаниях, то

Сергей, я зарабатываю деньги программированием а не изучаю особенности работы среды. Кроме того, для работы с вещественными числами я использую Extended = 10 байт который вгоняются в сопроцессор и не зависят от компилятора.

В Вашем случае, тоже, предлагаю пользоваться Extended (всегда) и все проблемы будут исчерапны, а статейки про "кривость" генерации опокда разными компиляторами, головная боль разработчиков тех самых компиляторов.
---------
Серегей привёл кусок кода,

НЕЛЬЗЯ проверять на точное равенство (в данном случае на точное граничное значение).

Приведи кусок кода который будет работать через жопу. Я скачаю и проверю

[Stilet]

Так все! Хватит с меня. Развели тут дружескую беседу. Аж пыль столбом.
Тему закрываю.

[Serge_Bliznykov]

Stilet, Виталий, простите, позволю себе ответить на вопрос...

В Вашем случае, тоже, предлагаю пользоваться Extended (всегда) и все проблемы будут исчерапны, а статейки про "кривость" генерации опокда разными компиляторами, головная боль разработчиков тех самых компиляторов.
---------

Приведи кусок кода который будет работать через жопу. Я скачаю и проверю

JUDAS, не, ну разумеется, спорить проще, чем прочитать статью...

ладно. Наслаждайтесь. вот Вам пример.

var R:extended;
    I:Integer;
begin
  R:=1;
  for I:=1 to 10 do
     R:=R-0.1;
  if R=0 then
    Label1.Caption:='Получили ноль'
  else
    Label1.Caption:='нет, не ноль!';
end;