Округление - Общие вопросы Delphi

Farmokolog · 19.02.2011, 15:52

Подскажите как сделать чтобы в окно Edit выдавал ответ округляя до сотых или десятичных.

Код:

а;=451.33;
d:= a*60/1000;               
Edit1.Text:=FloatToStr(d);  
e:=(d*c)/(49*60)*1000;
Edit2.Text:=FloatToStr(e);

ArtGrek · 19.02.2011, 15:55

Farmokolog · 19.02.2011, 16:08

Спасибо, все нашел, разобрался .

Вот, вдруг кому пригодиться.

Код:

а;=451.33;
d:= a*60/1000;               
Edit1.Text:=(''+FormatFloat('0.00', d));  
e:=(d*c)/(49*60)*1000;
Edit2.Text:=(''+FormatFloat('0.00', e));

19.02.2011, 15:52	#1
Farmokolog Пользователь Регистрация: 11.02.2011 Сообщений: 16	Округление Подскажите как сделать чтобы в окно Edit выдавал ответ округляя до сотых или десятичных. Код: `а;=451.33; d:= a60/1000; Edit1.Text:=FloatToStr(d); e:=(dc)/(4960)1000; Edit2.Text:=FloatToStr(e);`

19.02.2011, 15:55	#2
ArtGrek DelphiProger Участник клуба Регистрация: 14.11.2010 Сообщений: 1,023	http://www.delphisources.ru/pages/fa...Float.php.html VirusN13

19.02.2011, 16:08	#3
Farmokolog Пользователь Регистрация: 11.02.2011 Сообщений: 16	Спасибо, все нашел, разобрался . Вот, вдруг кому пригодиться. Код: `а;=451.33; d:= a60/1000; Edit1.Text:=(''+FormatFloat('0.00', d)); e:=(dc)/(4960)1000; Edit2.Text:=(''+FormatFloat('0.00', e));`