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

Delphi Sources

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


Последние добавленные на сайт исходники

DeLiKaTeS Tetris (Тетрис)

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

 

Айболит (remote control)

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

 

Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте