Справочник функций и процедур 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;


Описание
Функция 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-2018 Delphi Sources (источник – "DelphiBasics.ru")
 

ASPack

Продукт ASPack предназначен для архивации исполняемых файлов под Win32 и защиты от непрофессионального реверс-инжиниринга. ASPack позволяет уменьшать размер файлов и библиотек до 70%, что также позволяет сокращать время загрузки таких приложений в локальных сетях и Интернет.


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