Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  
Подписаться на рассылку:
Клуб программистов


Основы Delphi
CurrencyFormat
Переменная
Определяет размещение строки валюты в функции показа валюты 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 $
 



© Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки  |     |  Английская версия