Определяет отображение отрицательного количества форматированной валюты
SysUtils unit
var NegCurrFormat : Byte;
Описание
Переменная NegCurrFormat определяет, как отрицательное количество валюты будет отформатировано такими функциями как FloatToStr и CurrToStr.
Это имеет действительности только с перечисляемыми типами, но без имени для значений. Наиболее легко показать их назначение на данном примере с количеством 1.23 $ как CurrencyString:
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;
