Вывод числа текстом Floattotext
Здавствуйте в фаст репорте новичек.
Суть проблемы: делаем печатную форму в которой несколько раз надо числа прописать текстом в собках пример "составляет 15 000 (пятнадцать тысяч) рублей" так хотелось бы но почему-то в скобках в конце текста добавляет пробел пример: "(пятнадцать тысяч )" используется следующая функция "FloatToText"
строка в форме:
[FloatToText (<dsgraph."loancostall">,2)])
а это в коде
begin
perc := <dsgraph."loancostall">/100*<dsgraph."mainpercent">;
loan := ((((exp(<dsgraph."daysquant">*ln(1+<dsgraph."mainpercent">*0.01))*(<dsgraph."mainpercent">*0.01)))/((exp(<dsgraph."daysquant">*ln(1+<dsgraph."mainpercent">*0.01))-1)))*<dsgraph."loancostall">)-perc;
loanSum := loansum + loan;
loanRest := <dsgraph."loancostall">-loanSum;
end
else
begin
if((r>1)and(r<=<dsgraph."daysquant">-1)) then
begin
loan := loanRest/(<dsgraph."daysquant">-r);
perc := loanRest/100*<dsgraph."mainpercent">;
loan := e-perc;
loanSum := loansum + loan;
loanRest := <dsgraph."loancostall">-loanSum;
end;
if ((r>1)and(r=<dsgraph."daysquant">)) then
begin
loan := <dsgraph."loancostall">-loanSum;
perc := loan/100*<dsgraph."mainpercent">;
loanRest := 0;
end;
end;
end;
извините если что неправильно описал я чайник только пытаюсь стать самоваром).
можно ли избавиться от этого пробела?
Суть проблемы: делаем печатную форму в которой несколько раз надо числа прописать текстом в собках пример "составляет 15 000 (пятнадцать тысяч) рублей" так хотелось бы но почему-то в скобках в конце текста добавляет пробел пример: "(пятнадцать тысяч )" используется следующая функция "FloatToText"
строка в форме:
[FloatToText (<dsgraph."loancostall">,2)])
а это в коде
begin
perc := <dsgraph."loancostall">/100*<dsgraph."mainpercent">;
loan := ((((exp(<dsgraph."daysquant">*ln(1+<dsgraph."mainpercent">*0.01))*(<dsgraph."mainpercent">*0.01)))/((exp(<dsgraph."daysquant">*ln(1+<dsgraph."mainpercent">*0.01))-1)))*<dsgraph."loancostall">)-perc;
loanSum := loansum + loan;
loanRest := <dsgraph."loancostall">-loanSum;
end
else
begin
if((r>1)and(r<=<dsgraph."daysquant">-1)) then
begin
loan := loanRest/(<dsgraph."daysquant">-r);
perc := loanRest/100*<dsgraph."mainpercent">;
loan := e-perc;
loanSum := loansum + loan;
loanRest := <dsgraph."loancostall">-loanSum;
end;
if ((r>1)and(r=<dsgraph."daysquant">)) then
begin
loan := <dsgraph."loancostall">-loanSum;
perc := loan/100*<dsgraph."mainpercent">;
loanRest := 0;
end;
end;
end;
извините если что неправильно описал я чайник только пытаюсь стать самоваром).
можно ли избавиться от этого пробела?
Комментарии
У Вас доступ к исходникам программы есть? Скорее всего, FloatToText - пользовательская функция, реализованная в Delphi