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

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

     Десятичные разряды, выходящие за поддерживаемые 4, округляются в большую или меньшую (в зависимости от контекста) сторону. См. код примера для иллюстрации.

var
   account1, account2, account3 : Currency;
begin
   account1 := 123.456749; // Too many decimals - will be rounded down
   account2 := 123.456750; // Too many decimals - will be rounded up
   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