[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 , стандартных функций арифм. округления нет