Alles Falsch.
Currency heißt nicht umsonst Currency. Das soll *genau* rechnen können. Ich kauf mir doch keinen Ferarri, den ich dann vom Pferd ziehen lasse..
Eigentlich ist Currency ein Int64, allerdings um 4 Dezimalstellen nach links geschoben. Und da die Umsetzung von Int64 im Compiler meines Wissens nach nicht 100% korrekt ist, kann es zu Problemen führen (zumindest früher)
Beweis:
Delphi-Quellcode:
Program CurrencyIsInt64;
Var
c : Currency;
i : Int64 absolute c;
begin
writeln(c);
writeln(i);
end.
Mit Currency sind also 14 Stellen vor dem Komma (und 4 danach) darstellbar.
Alternativen wären Klassen, wie TBigNum oder BigInt. Beides zu ergoogeln oder zu erdepelen ("in der
DP suchen")
TBCD geht auch, ist aber im Wertebereich beschränkt und erst in "neueren" Versionen vorhanden(?)
Nebenbei:
Ein Vergleich von...wird außer bei Extended und Variant immer anschlagen single,real,double ....
Auch falsch. Alles was floating point ist, und dazu gehört auch extended und variant (wenn der einen FP kapselt) sollte *NIE* auf Gleichheit geprüft werden. Es kann funktionieren (und bei Extended ist die Wahrscheinlichkeit größer, das es funktioniert), aber es muss nicht.
Beweis:
Delphi-Quellcode:
Var
e,e1 : Extended;
begin
e := 0;
repeat
e1 := e;
e := e+0.1;
until e-e1<>0.1;
writeln(FloatToStr(r));
end.
Merke: Floating Point ist schnell, aber nicht genau.