Округление до заданного числа значащих цифр

Здравствуйте, как сделать чтобы алгоритм округлял до значащих цифр только после запятой, а целую часть не трогал?

yura371, предварительно отделите целую и дробную часть. С дробной сделайте то, что Вам необходимо, а потом прибавьте к результату целую часть.

Спасибо, так и сделаю.

Здравствуйте подскажите пожалуйста, я пытаюсь выполнить вычисления и потом округлить, но округление не проходит в большую сторону(по правилу если до после округляемого числа знаков пятерка то вверх округляем). Зачем так получается?

R:=0.5*74.707;
R:=StrToFloat(FormatFloat('###',R));
Edit1.Text:=StrToFloat(R);

В Edit1.Text получается 37,353 вместо 37,354. Как же правильно округлить?

Это выражение посмотрите, то неправильно:
R:=37.355;
R:=StrToFloat(FormatFloat('0.###',R));

yura371, Вы пытаетесь сделать округление через строку. А зачем? Текстовое форматирование вообще не обращает внимание на последующие цифры. Оно лишь отсекает ненужное.
Для того, чтобы было правильное округление, нужно использовать функцию round. Но на каком месте округлять - нужно выбирать.
Почитайте ещё раз статью. Там я об этом пишу.

Все работает и обращает внимание на последующую цифру. Нужно было изменить real на extended.
А round ведь же округляет только до целого значения.

yura371 писал(а):А round ведь же округляет только до целого значения.

Ну так там в примере рассказано, как от этого уйти.