Как окрулить число в Delphi
Люди я делаю Edit1 - куда вводим число. Edit1 у меня StrToFloat.
Вроде суммирую когда выходит число: 4500, 5000, т.д.
А когда делю или умнажаю выходит: 200,44444, 300,55555.
Вот как отбросить ненужные цыфры?
div или mod.
В справке посмотрел, немного не разобрал... Щас листинг приведу:
...
a: real;
...
a:= StrToFloat(Edit1.Text);
...
Label1.Caption:= FloatToStr((a)+100);
! Label2.Caption:= FloatTostr((Label1.Caption)*10/20);
п.с.: где ! вот в этой строчке как применить div or mod? Или какую ту другую операцию, чтоб получилось не 300,4444. а 300,44. или округлить без копеек. 300.
|