Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: CurrencyFormat
CurrencyFormat
|
var CurrencyFormat : Byte; |
Переменная (Unit SysUtils)
|
Определяет размещение строки валюты в функции показа валюты
|
Описание:
|
Переменная CurrencyFormat, в действительности, перечислимый тип. Значения, которые она может содержать, определяют размещение строки валюты в функциях отображения валюты, типа CurrToStr. Разрешенные значения: 0 = Перед числом 1 = После числа 2 = Перед числом с пробелом 3 = После числа с пробелом |
Пример кода: Иллюстрация 4-х форматов валюты
|
var amount : Currency; i : Byte; begin amount := 12; // 12 долларов // Отображение количества, используя все 4 формата валюты for i := 0 to 3 do begin CurrencyFormat := i; ShowMessage('Format '+IntToStr(i)+' = '+CurrToStrF(amount, ffCurrency, 0)); end; end;
Результат:
|
Format 0 = $12 Format 1 = 12$ Format 2 = $ 12 Format 3 = 12 $ |
Примечание:
|
Переменная CurrencyString определяет фактическое обозначение денежного символа или строки. В США, значение по умолчанию - $ По умолчанию CurrencyFormat = LOCALE_ICURRENCY. |