Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: CurrencyDecimals
CurrencyDecimals
|
var CurrencyDecimals : Byte; |
Переменная (Unit SysUtils)
|
Определяет число десятичных цифр в функции Format
|
Описание:
|
Переменная CurrencyDecimals обеспечивает заданное по умолчанию число десятичных цифр для Format и связанных функций. |
Пример кода: Изменение заданных по умолчанию десятичных цифр от 2 до 4
|
var amount : Double; begin amount := 1234.567; // Отображение amount, используя заданные по умолчанию десятичные цифры (2) ShowMessage('Amount = '+Format('%m', [amount])); // Повторный показ amount с 4-мя десятичными цифрами CurrencyDecimals := 4; ShowMessage('Amount = '+Format('%m', [amount])); end;
Результат:
|
Amount = $1,234.57 Amount = $1,234.5670 |
Примечание:
|
По умолчанию CurrencyDecimals = LOCALE_ICURRDIGITS. |