Delphi-Help

Описание

Тип Currency предназначен для использования в финансовых приложениях. Он поддерживает 4 десятичных места с не менее 53 битами точности.

Пример кода

var
account1, account2, account3 : Currency;
begin
account1 := 123.456749;   // Слишком много десятичных чисел - будут округлены вниз
account2 := 123.456750;   // Слишком много десятичных чисел - будут округлены вверх
account3 := account1 + account2;
ShowMessage('Account1 = '+CurrToStr(account1));
ShowMessage('Account2 = '+CurrToStr(account2));
ShowMessage('Account3 = '+CurrToStr(account3));
end;

Account1 = 123.4567
Account2 = 123.4568
Account3 = 246.9135

Примечание

* Зависит от точности плавающей запятой процессора.
Очень большие значения Currency будут терять точность с некоторыми из StrUtils функций.