Чудеса ф-ции round()

[Владимир]

Господа-граждане, всем доброго!
После перехода на дистриб VectorLinux в приложении перестал корректно работать ProgressBar - вешал систему напрочь. После длительной разборки выяснил, что (пример условный):

Код: Выделить всё

 i:Integer;
.....
 ProgressBar.Position:=0;
 ProgressBar.Max:=200;
 for i:=0 to 1000 do 
 ProgressBar.Position:=Round(i/5);
 

...и система встает (загрузка ЦП 100%). Сами значения Round(i/5) - 9 знаков с минусом.
Стоило поменять тип i на Double - все заработало нормально. С одной стороны, надо вызывать Round корректно, с аргументом float, с другой - раньше такой фокус проходил...
Какие мнения?

[Vadim]

Какие мнения?

Однозначно - использовать целочисленное деление (div), а не заставлять процессор маяться дурью со всякими там Round'ами.

[Владимир]

Однозначно - использовать целочисленное деление (div), а не заставлять процессор маяться дурью со всякими там Round'ами.

Спапсибо, как-то раньше не задумывался.

[informat]

Какие мнения?

Однозначно - использовать целочисленное деление (div), а не заставлять процессор маяться дурью со всякими там Round'ами.

round и div дают разные результаты.
round (2/3)= 1
2 div 3 = 0

Хотя в данном случае это может быть и несущественно.

[Sergei I. Gorelkin]

Владимир,
можешь изобразить простейшую консольную программу, на которой воспроизводится эффект (т.е. round от положительного выражения выдает "9 знаков с минусом")?
(пример выше не годится, потому что его нельзя откомпилировать)

[Максим]

Только сначала не мешало бы взять последнюю стабильную версию FPC, а то в подписи Владимира я наблюдаю версию 2.4.0.

[Владимир]

Владимир,
можешь изобразить простейшую консольную программу, на которой воспроизводится эффект (т.е. round от положительного выражения выдает "9 знаков с минусом")?
(пример выше не годится, потому что его нельзя откомпилировать)

Наверное, я не точно выразился - не round() дает 9 знаков с минусом, а значение ProgressBar.Position.
Тестовый пример с ProgressBar работает как часы. Подозреваю, проблема в том, что проект начинался еще на Kylih, затем портирован в Lazarus и те ProgressBar-ы, которые стали глючить, также перекочевали из Kylih. Помню, что на каком-то этапе при смене версий Lazarus выход ProgressBar.Position за пределы ProgressBar.Max валил приложение.