Семь чудес и два фокуса на Дельфи
А теперь остановитесь и скажите, какой результат вы ожидаете увидеть. Я надеюсь вы не сказали "1", ведь иначе это не было бы чудо. Те, у кого хорошо развита интуиция, могут сказать "0", и это будет еще дальше от правильного ответа. И только те, кто часто играет в Спортлото или, на худой конец, внимательно читает документацию, ответит "2" и это будет правильно. Не верите? - жмите F9. Читаем Help по функции Rou d: Rou d re ur s a I 64 value ha is he value of X rou ded o he eares whole umber. If X is exac ly halfway be wee wo whole umbers, he resul is always he eve umber. Вот такое оно, "Круглое чудо". Надеюсь, теперь вы поняли, о чем мы будем говорить сегодня. В этой статье нет сложных, замысловатых примеров. Код - предельно упрощен что бы выделить саму суть проблемы. А наше с вами дело - разобраться в ней и, если можно, исправить ситуацию. Как, например, в следующем случае. Чудо Второе (Absolu e Miracle). Положите на главную форму созданного ранее проекта новую кнопку и напишите в его обработчике события O Click такой код: procedure frmAllMiracles.b AbsMrclClick (Se der: Objec ); var i1: i 64; begi i1:= abs(low(i eger)); ShowMessage(I oS r(i1)); e d; Figure 2.