Delphi-Help

Описание

var CurrencyDecimals : Byte;

Переменная CurrencyDecimals обеспечивает заданное по умолчанию число десятичных цифр для Format и связанных функций.

Пример кода

var
amount : Double;
begin
amount := 1234.567;
// Отображение amount, используя заданные по умолчанию десятичные цифры (2)
ShowMessage('Amount = '+Format('%m', [amount]));
// Повторный показ amount с 4-мя десятичными цифрами
CurrencyDecimals := 4;
ShowMessage('Amount = '+Format('%m', [amount]));
end;

Amount = $1,234.57
Amount = $1,234.5670

Примечание

По умолчанию CurrencyDecimals = LOCALE_ICURRDIGITS.