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

    Delphi функция CurrToStrF конвертирует денежную величину в строку с возможность управлением над форматированием через Format. Пользователю предоставляется возможность определить, сколько цифр будут отображены. Параметры Format определены TFloatFormat (юнит SysUtils):

    ffCurrency : $2,345.60
    ffExponent : 2.3456E+04
    ffFixed напр. : 2345.60
    ffGeneral : 2345.6
    ffNumber : 2,345.6

    Вы можете изменить денежную строку из встроенного (как например, '$' в США), используя переменную CurrencyString.

    Вы можете изменить позицию валютной строки, использовавшей переменную CurrencyFormat.

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

    Вы можете изменить десятичные величины разделителя, устанавливая символ ThousandSeparator.

    Переменная NegCurrFormat определяет форматирование отрицательных сумм.

var
   amount1 : Currency;

begin
   amount1 := 1234.567;

   // Display in a Currency format
   CurrencyString := '? ';
   ShowMessage('Using 4 digits = '+CurrToStrF(amount1, ffCurrency, 4));
   ShowMessage('Using 2 digits = '+CurrToStrF(amount1, ffCurrency, 2));
   ShowMessage('Using 0 digits = '+CurrToStrF(amount1, ffCurrency, 0));
end;

Using 4 digits = ? 1,234.5670
Using 2 digits = ? 1,234.57
Using 0 digits = ? 1,235