Genauigkeit von Datentypen

[Sir Rufo]

Delphi-Quellcode:

var
  Val1, Val2 : Double;

if CompareValue( Val1, Val2 {, Epsilon} ) then
  ShowMessage( 'Sind Gleich' );

Das Epsilon kann ein beliebiger Wert sein, der den maximalen Unterschied angibt, bei dem die Wert noch gleich sind.

Aber warum willst du das Programm überhaupt von Currency auf Double umstellen? Macht bei Währungsbeträgen doch Null Sinn.