Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: NegCurrFormat
NegCurrFormat
|
var NegCurrFormat : Byte; |
Переменная (Unit SysUtils)
|
Определяет отображение отрицательного количества форматированной валюты
|
Описание:
|
Переменная NegCurrFormat определяет, как отрицательное количество валюты будет отформатировано такими функциями как FloatToStr и CurrToStr. Это имеет действительности только с перечисляемыми типами, но без имени для значений. Наиболее легко показать их назначение на данном примере с количеством 1.23 $ как CurrencyString: 0 = ($1.23) 1 = -$1.23 2 = $-1.23 3 = $1.23- 4 = (1.23$) 5 = -1.23$ 6 = 1.23-$ 7 = 1.23$- 8 = -1.23 $ 9 = -$ 1.23 0 = 1.23 $- 11 = $ 1.23- 12 = $ -1.23 13 = 1.23- $ 14 = ($ 1.23) 15 = (1.23 $) |
Пример кода: Иллюстрация 16-ти различных отрицательных форматированных значений валют
|
var i : Byte; begin // Display the amount using all the flavours of NegCurrFormat for i := 0 to 15 do begin NegCurrFormat := i; ShowMessage('Формат '+IntToStr(i)+' = '+Format('%m', [-1.23])); end; end;
Результат:
|
Формат 0 = ($1.23) Формат 1 = -$1.23 Формат 2 = $-1.23 Формат 3 = $1.23- Формат 4 = (1.23$) Формат 5 = -1.23$ Формат 6 = 1.23-$ Формат 7 = 1.23$- Формат 8 = -1.23 $ Формат 9 = -$ 1.23 Формат 10 = 1.23 $- Формат 11 = $ 1.23- Формат 12 = $ -1.23 Формат 13 = 1.23- $ Формат 14 = ($ 1.23) Формат 15 = (1.23 $) |