| Описание |
Переменная 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 $)
|
|
| Примечания |
|
По умолчанию NegCurrFormat = LOCALE_INEGCURR.
|
|
| Похожие команды |
CurrencyDecimals Определяет число десятичных цифр в функции Format
CurrencyFormat Определяет размещение строки валюты в функции показа валюты
CurrToStrF Преобразует денежную величину в строку с форматированием
DecimalSeparator Символ используемый для отображения десятичной точки
Format Богатое форматирование чисел и текста в строке
ThousandSeparator Символ, используемый для отображения разделителя тысяч
| |
|
| Пример кода : Иллюстрация 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 $)
|
|
