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.
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)