Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: CurrToStr
CurrToStr
|
1 function CurrToStr ( Value : Currency ) : string; 2 function CurrToStr ( Value : Currency; const FormatSettings : TFormatSettings ) : string; |
Функция (Unit SysUtils)
|
Преобразует денежную величину в строку
|
Описание:
|
Функция 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.. |