Функция CurrToStr в Delphi преобразует денежную величину в строку.
SysUtils unit
- function CurrToStr (Value : Currency) : string;
- function CurrToStr (Value : Currency; const FormatSettings : TFormatSettings) : string;
Функция CurrToStr преобразует денежную величину в строку.
Десятичные знаки отображаются, только если число не равны нулю, например, 3.00 - функция CurrToStr переведёт в строку 3.
CurrencyDecimals не затрагивает эту функцию.
Символ валюты не отображается после перевода в строку.
Неожиданно, но нет никакого денежного символа или символа разделителя тысяч, используемого при отображении.
Версия 2 этой функции – для использования в пределах потоков. Вы заполняете запись FormatSettings перед вызовом запроса. Она получает локальную копию глобальной форматирующей переменной, которая делает вашу подпрограмму потокобезопасной.
Примечание.
Вы можете изменить знак десятичной дроби числа, устанавливая символ с помощью DecimalSeparator.
Используйте функцию CurrToStrF для управления форматирования – особенно с опцией форматирования TFloatFormat.ffCurrency.
Функция CurrToStr: Отображение значений валюты как финансовые значения
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
Похожие функции, процедуры и команды
CurrToStrF — преобразует денежную величину в строку с форматированием.
DecimalSeparator — символ используемый для отображения десятичной точки.
StrToCurr — преобразует числовую строку в денежное выражение.
Угостить автора чашечкой кофе