Клуб программистов

    Delphi функция CurrToStr преобразует денежную величину в строку.

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

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

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

    Используйте функцию CurrToStrF для управления над форматированием.

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