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

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

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

  Реклама:

 

NegCurrFormat
Переменная
Определяет отображение отрицательного количества форматированной валюты SysUtils unit
  var NegCurrFormat : Byte;

Google  
 
Описание
Переменная NegCurrFormat определяет, как отрицательное количество валюты будет отформатировано такими функциями как FloatToStr и CurrToStr.

Это имеет действительности только с перечисляемыми типами, но без имени для значений. Наиболее легко показать их назначение на данном примере с количеством 1.23 $ как CurrencyString:

0 = ($1.23)
1 = -$1.23
2 = $-1.23
3 = $1.23-
4 = (1.23$)
5 = -1.23$
6 = 1.23-$
7 = 1.23$-
8 = -1.23 $
9 = -$ 1.23
0 = 1.23 $-
11 = $ 1.23-
12 = $ -1.23
13 = 1.23- $
14 = ($ 1.23)
15 = (1.23 $)
Примечания
По умолчанию NegCurrFormat = LOCALE_INEGCURR.
Похожие команды
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;
Формат 0 = ($1.23)
Формат 1 = -$1.23
Формат 2 = $-1.23
Формат 3 = $1.23-
Формат 4 = (1.23$)
Формат 5 = -1.23$
Формат 6 = 1.23-$
Формат 7 = 1.23$-
Формат 8 = -1.23 $
Формат 9 = -$ 1.23
Формат 10 = 1.23 $-
Формат 11 = $ 1.23-
Формат 12 = $ -1.23
Формат 13 = 1.23- $
Формат 14 = ($ 1.23)
Формат 15 = (1.23 $)
 


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


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