Функція 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('Сума1 = '+CurrToStr(amount1));
ShowMessage('Сума2 = '+CurrToStr(amount2));
end;Результат
Сума1 = 1.23
Сума2 = 123456789.1234
Подібні функції, процедури та команди
CurrToStrF — перетворює грошову величину на рядок з форматуванням.
DecimalSeparator — символ, який використовується для відображення десяткової точки.
StrToCurr — перетворює числовий рядок у грошовий вираз.
Пригостити автора кавою