Problem with Compare Value

[Thaddy]

winni, correct (it is a scaled int64) but that is not how it is implemented.
It is converted to floats... see the sources.

[PascalDragon]

The type currency is nothing but an Int64.

Not correct on i8086, i386 and x86_64 except Win64. There it is - like Comp - handled as a floating point type.

[Thaddy]

The type currency is nothing but an Int64.

Not correct on i8086, i386 and x86_64 except Win64. There it is - like Comp - handled as a floating point type.

Which is technically correct? Unlike comp, currency is a well defined type....
e.g. https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/currency-data-type

whereas comp is a strictly Pascal type.
But I am happy with your fix, btw.

[winni]

@Thaddy & @PascalDragon

Sorry - my old Delphi knowledge was partly wrong.
Something learned today.

So Currency is another "Great Pretender" ...

Winni

[jamie]

Its still stored as a int64 and you can still code it has such...

for simple compares I have no idea why it does a Finteger load from an integer to generate a double and then perform the compare, it's kind of stupid really...

 You can cast the compare to a int64 and it works as a Int64 which comes out with the same answer or an answer I would trust better.

 most likely much faster in code too.


 Result := Int64(C1)-Int64(C2);

 Then test it it.

[PascalDragon]

for simple compares I have no idea why it does a Finteger load from an integer to generate a double and then perform the compare, it's kind of stupid really...

Because that is how Currency is defined in both FPC and Delphi.