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
CurrencyDecimals
Переменная
Определяет число десятичных цифр в функции Format SysUtils unit
  var CurrencyDecimals : Byte;
Описание
Переменная CurrencyDecimals обеспечивает заданное по умолчанию число десятичных цифр для Format и связанных функций.
Примечания
По умолчанию CurrencyDecimals = LOCALE_ICURRDIGITS.
Похожие команды
CurrencyFormat  Определяет размещение строки валюты в функции показа валюты

CurrencyString  Строка валюты, используемая в функциях отображения валюты

CurrToStrF  Преобразует денежную величину в строку с форматированием

DecimalSeparator  Символ используемый для отображения десятичной точки

Format  Богатое форматирование чисел и текста в строке

NegCurrFormat  Определяет отображение отрицательного количества форматированной валюты

ThousandSeparator  Символ, используемый для отображения разделителя тысяч

 
Пример кода : Изменение заданных по умолчанию десятичных цифр от 2 до 4
var
  amount : Double;

begin
  amount := 1234.567;

  // Отображение amount, используя заданные по умолчанию десятичные цифры (2)
  ShowMessage('Amount = '+Format('%m', [amount]));

  // Повторный показ amount с 4-мя десятичными цифрами
  CurrencyDecimals := 4;
  ShowMessage('Amount = '+Format('%m', [amount]));
end;
Amount = $1,234.57
Amount = $1,234.5670
 



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