Справочник функций и процедур Delphi: CurrencyFormat

  Навигация по первой букве:

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

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

 

CurrencyFormat
Переменная
Определяет размещение строки валюты в функции показа валюты SysUtils unit
  var CurrencyFormat : Byte;

Google  
 
Описание
Переменная 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 $
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook