Delphi-Help

Описание

var NegCurrFormat : Byte;

Переменная 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 $)

Пример кода

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 $)

Примечание

По умолчанию NegCurrFormat = LOCALE_INEGCURR.