Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Округление числа до 3 знака после запятой

Автор: User 26.1.2005, 09:43

Вопрос такого плана. У меня есть 3 Edit. Первых два Editа служат для записи вещественных ли целых чисел, в третьем Edit-е я вывозу результат. как мне округлить (обрезать) результат умножения (0,025*2,536) который равен 0,0634 до второго знака т.е. 0,06
Как это сделать?

Edit1.Text :=StrToInt(Str2);
Edit2.Text :=StrToInt(Str3);
Str1 :=Str2*Str3;
Edit3.Text :=IntToStr(Str1);

Если можно то с примером!!! smile

Автор: ~FoX~ 26.1.2005, 09:50

Используй Format

Автор: User 26.1.2005, 12:48

Я знаю некоторые приемы про это например как прибавить ноль перед цифрой 2

Format(%.2d,);

А вот как отрезать чего то не разбируся. Поможите smile

Автор: J. Bravo 26.1.2005, 14:43

Воспользуйся FloatToStrF

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(FloatToStrF(0.123*33.245,ffFixed,6,3));
end;

Автор: User 26.1.2005, 15:58

Спасибо вышло все окей!

Автор: ~FoX~ 26.1.2005, 17:36

J. Bravo
Ну вы даете. smile

Вы б еще ему LastDelimiter посоветовали smile

Код


  format('%8.2f', [0,0634]);