Delphi-Help

Описание

1 function CurrToStr ( Value : Currency ) : string;

2 function CurrToStr ( Value : Currency; const FormatSettings : TFormatSettings ) : string;

Функция CurrToStr преобразует денежную величину в строку.
Десятичные знаки отображаются, только если число не равны нулю, например, 3.00 - функция CurrToStr переведёт в строку 3. CurrencyDecimals не затрагивает эту функцию.
Символ валюты не отображается после перевода в строку.
Неожиданно, но нет никакого денежного символа или символа разделителя тысяч, используемого при отображении.
Версия 2 этой функции - для использования в пределах потоков. Вы заполняете запись FormatSettings перед вызовом запроса. Она получает локальную копию глобальной форматирующей переменной, которая делает вашу подпрограмму потоко безопасной.

Пример кода

var
amount1, amount2, amount3 : Currency;
begin
amount1 := 1.23;
amount2 := 123456789.1234;
ShowMessage('Amount1 = '+CurrToStr(amount1));
ShowMessage('Amount2 = '+CurrToStr(amount2));
end;

Amount1 = 1.23
Amount2 = 123456789.1234

Примечание

Вы можете изменить знак десятичной дроби числа, устанавливая символ с помощью DecimalSeparator.

Используйте функцию CurrToStrF для управления форматирования - особенно с опцией форматирования TFloatFormat.ffCurrency..