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

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

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

  Реклама:

 

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

2 function CurrToStr ( Value : Currency; const FormatSettings : TFormatSettings ) : string;

Google  
 
Описание
Функция 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
 


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


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