![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Товарищи, как можно сократить и уменьшить до одной строки (иди одного действия след функцию округления:
Код:
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; P.S. У меня Delphi 6 ![]() Последний раз редактировалось Admin, 05.03.2010 в 11:40. |
#2
|
||||
|
||||
![]() Выведи все действия в отдельную функцию, а в процедуре используй ее...
В начале был Бит, потом Байт и только потом появилось Слово... |
#3
|
||||
|
||||
![]() а что в 6 дельфе нету round()? этож ппц
![]() |
#4
|
|||
|
|||
![]() Всем спасибо.
Ребято, я оказывается жесточайше ступил - забыл подключить модуль Math, поэтому и стандартный RoundTo у меня не получался. |
#5
|
||||
|
||||
![]() Цитата:
|