Функция CurrToStrF(
Value: Currency;
Format: TFloatFormat;
Digits: Integer ): string;
Модуль: SysUtils
Описание
Функция конвертирует значение типа Currency, указанное в параметре Value, в его строковое представление, используя заданный формат. Действие данной функции аналогично функции FloatToStrF с точностью (Precision) равной 19 знакам. Назначение параметра Digits зависит от типа формата строки, определенного в параметре Format. Подробности форматирования см. в описании функции FloatToStrF.
Пример var
SumWithNDS, NDS: Currency;
S: string; begin
SumWithNDS:= 10203;
NDS:=SumWithNDS/6;
MessageDlg('Сумма: '+ CurrToStrF( SumWithNDS, ffCurrency, 2)+ #13+ 'НДС=20%: '+ CurrToStrF( NDS, ffCurrency, 2), mtInformation, [mbOk], 0); end;