Delphi7. Запись в файл(проблема)

[Orakul89]

могу предложить еще один вариант:

result :=  round(X);
if result < X then result:=result+1;

[astecenko]

Сообщение от Orakul89

могу предложить еще один вариант:

result :=  round(X);
if result < X then result:=result+1;

Так не проще:

Result:=round(x)+ord(round(x)<x);