Товарищи, как можно сократить и уменьшить до одной строки (иди одного действия след функцию округления:
Код:
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
, стандартных функций арифм. округления нет