Ошибка при округлении.

[Jekasea]

Пишу

procedure TForm1.Button1Click(Sender: TObject);
Var Pr1,pr2,pr3,pr4:Real;
begin
if Edit1.Text='' then Edit1.Text:='0';
  Pr1:=StrToFloat(StringGrid2.Cells[1,2])*(strtofloat(Edit1.Text))/100;
  Pr2:=StrToFloat(StringGrid2.Cells[2,2])*(strtofloat(Edit1.Text))/100;
  Pr3:=StrToFloat(StringGrid2.Cells[3,2])*(strtofloat(Edit1.Text))/100;
  Pr4:=StrToFloat(StringGrid2.Cells[4,2])*(strtofloat(Edit1.Text))/100;

  StringGrid2.Cells[1,3]:='    '+FloatToStr(Pr1,ffFixed, 6, 2);
  StringGrid2.Cells[2,3]:='    '+FloatToStr(Pr2);
  StringGrid2.Cells[3,3]:='    '+FloatToStr(Pr3);
  StringGrid2.Cells[4,3]:='    '+FloatToStr(Pr4);
end;

в строке

Pr1,ffFixed, 6, 2

выдает ошибку: Error] Unit3.pas(350): Too many actual parameters
В чем дело? подскажите.

[Аватар]

В чем дело?

В том, о чем в сообщении компилятора говорится - слишком много фактических параметров

[Jekasea]

Да, программа большая. Много фактических и формальных параметров.
Поможет-ли добавление нового модуля?
Или что-то можно другое предпринять.
Не разу с такой проблемой не сталкивался.

[type_Oleg]

Поможет почитать справку по функциям FloatToStr и RoundTo

[northener]

Или что-то можно другое предпринять.

Добавить одну букву FloatToStrF

[Jekasea]

М..да, пропустил одну букву и зашел в "темный лес".
Буду внимательнее.
Спасибо! все работает.
По весам нажал.

Есть еще вопрос.

r1:=(strtofloat(StringGrid2.Cells[1,1]))*41.05;
StringGrid2.Cells[1,2]:='    '+floattostr(r1);

Вычисляется денежная сумма.
Результаты примерно такие 8404,2 ; 9330,5 и т.д.
В конце нужно добавить 0, т.е. что-бы числа имели два знака после запятой.
Как это сделать? Какие операторы для этого применяются?

Спрошу проще.
Каким оператором определить количество знаков (символов) после запятой?

[Аватар]

FloatToStrF

[Jekasea]

FloatToStrF конвентирует, а не определяет.

[Аватар]

Каким оператором определить количество знаков (символов) после запятой

Операторы паскаля http://solidbase.karelia.ru/edu/zonna/5_pascal_3.htm
Свойств у стрингрида таких нет и быть не может по определению.
Вот в FloatToStrF есть параметр определяющий количество знаков после запятой при преобразовании

[Jekasea]

Не совсем точно я сформулировал вопрос, извиняйте!
Каким оператором "отбросить" дробную часть и превратить ее в целую?
Таким образом сосчитаю копейки, т е. по два числа после запятой.