Ob es Sinn macht, statt Double Currency zu verwenden muss wohl jeder für sich selber entscheiden. Es kommt auf den Einzelfall an. Wenn z.B. ein Preis aus Menge mit bis zu 3 Nachkommastellen, Rabatt mit zwei Nachkommastellen, oder sogenannten Multi's wie sie bei Datanorm verwendet werden mit 3 Nachkommastellen....usw. berechnet werden muss, dann muss man Double und Currency mischen. Das ist auch nicht der Hit und darum kann es eleganter sein, die Doubles entsprechend zu behandeln.
if SameValue(arGeld[i], 2, 0.005) then
... in eine kleine Funktion packen, wenn man Double's für Beträge verwenden möchte
Delphi-Quellcode:
function GleicherBetrag(D1, D2: double): boolean;
begin
Result := SameValue(D1, D2, 0.011);
end;