Определяет размещение строки валюты в функции показа валюты
SysUtils unit
var CurrencyFormat : Byte;
Описание
Переменная CurrencyFormat, в действительности, перечислимый тип. Значения, которые она может содержать, определяют размещение строки валюты в функциях отображения валюты, типа CurrToStr.
Разрешенные значения:
0 = Перед числом 1 = После числа 2 = Перед числом с пробелом 3 = После числа с пробелом
Примечания
Переменная CurrencyString определяет фактическое обозначение денежного символа или строки. В США, значение по умолчанию - $
По умолчанию CurrencyFormat = LOCALE_ICURRENCY.
Похожие команды
CurrencyDecimals Определяет число десятичных цифр в функции Format
CurrencyString Строка валюты, используемая в функциях отображения валюты
CurrToStrF Преобразует денежную величину в строку с форматированием
DecimalSeparator Символ используемый для отображения десятичной точки
Format Богатое форматирование чисел и текста в строке
NegCurrFormat Определяет отображение отрицательного количества форматированной валюты
ThousandSeparator Символ, используемый для отображения разделителя тысяч
Пример кода : Иллюстрация 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 $