[pavarotti]

Товарищи, как можно сократить и уменьшить до одной строки (иди одного действия след функцию округления:

Код:

begin
Ext:=strtofloat(edit21.text);
ExtCel:=(trunc(Ext));
if frac(Ext)>0.5
then ExtEnd:=ExtCel+1 else
ExtEnd:=ExtCel;
edit22.Text:=floattostr(ExtEnd);
end;

Admin: Не забываем про оформление кода!

P.S. У меня Delphi 6 , стандартных функций арифм. округления нет

[NIch]

Выведи все действия в отдельную функцию, а в процедуре используй ее...

[friz]

а что в 6 дельфе нету round()? этож ппц

[pavarotti]

Всем спасибо.
Ребято, я оказывается жесточайше ступил - забыл подключить модуль Math, поэтому и стандартный RoundTo у меня не получался.

[TOJluK]

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

а что в 6 дельфе нету round()? этож ппц

он округляет неправильно, собственно как и RoundTo.