Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: ThousandSeparator
ThousandSeparator
|
var ThousandSeparator : char; |
Переменная (Unit SysUtils)
|
Символ, используемый для отображения разделителя тысяч
|
Описание:
|
ThousandSeparator переменная используется в валюте и с плавающей запятой отображать функции. По умолчанию, значение ThousandSeparator равно ",", но оно зависит от вашего региона Windows. |
Пример кода: Изменение символа разделителя тысяч
|
var amount : Currency; begin amount := 1234567.89; // 1,234,567 фунтов 89 пенсов // Показ с заданными по умолчанию разделителем тысяч ShowMessage('Amount = '+FloatToStrF(amount, ffCurrency, 10, 2)); // Показ с новым разделителем тысяч ThousandSeparator := ' '; ShowMessage('Amount = '+FloatToStrF(amount, ffCurrency, 10, 2)); end;
Результат:
|
Amount = $1,234,567.89 Amount = $1 234 567.89 |
Примечание:
|
По умолчанию ThousandSeparator = LOCALE_STHOUSAND. |