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
CurrToStr
Функция
Преобразует денежную величину в строку SysUtils unit
  
1 function CurrToStr ( Value : Currency ) : string;

2 function CurrToStr ( Value : Currency; const FormatSettings : TFormatSettings ) : string;
Описание
Функция CurrToStr преобразует денежную величину в строку.

Десятичные знаки отображаются, только если число не равны нулю, например, 3.00 - функция CurrToStr переведёт в строку 3. CurrencyDecimals не затрагивает эту функцию.

Символ валюты не отображается после перевода в строку.

Неожиданно, но нет никакого денежного символа или символа разделителя тысяч, используемого при отображении.

Версия 2 этой функции - для использования в пределах потоков. Вы заполняете запись FormatSettings перед вызовом запроса. Она получает локальную копию глобальной форматирующей переменной, которая делает вашу подпрограмму потоко безопасной.
Примечания
Вы можете изменить знак десятичной дроби числа, устанавливая символ с помощью DecimalSeparator.

Используйте функцию CurrToStrF для управления форматирования - особенно с опцией форматирования TFloatFormat.ffCurrency..
Похожие команды
CurrToStrF  Преобразует денежную величину в строку с форматированием

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

StrToCurr  Преобразует числовую строку в денежное выражение

 
Пример кода : Отображение денежного значения как строки
var
  amount1, amount2, amount3 : Currency;

begin
  amount1 := 1.23;
  amount2 := 123456789.1234;

  ShowMessage('Amount1 = '+CurrToStr(amount1));
  ShowMessage('Amount2 = '+CurrToStr(amount2));
end;

Amount1 = 1.23
Amount2 = 123456789.1234
 



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