- Код: Выделить всё
var
E: Extended;
A, C: Currency;
begin
E := 0.41;
C := 0.41;
A := 0;
A := A + C;
CheckEquals(0.41, A, 'Currency');
A := 0;
A := A + E;
CheckEquals(0.41, A, 'Extended');
end;
При прибавлении к Currency-значению Extended-значение увеличивает Currency-значение в 10000 раз и код выдает ошибку "TestExtended Failed: "Extended" expected: <0,41> but was: <4100>"?
Исправление A := A + Currency(E); вместо A := A + E; не помогает.
Это поведение появляется только в fpc 3 windows. В fpc 3 linux, в fpc 2 windows и fpc 2 linux ок.