Passenden Datentypen gesucht

[mjustin]

Currency ist naheliegend, hat aber teilweise Schwächen, bedingt durch Bugs im Compiler. Mit manchen Delphi Versionen liefert dieses Programm die Ausgabe "strange":

Delphi-Quellcode:

program Project14358407;

{$APPTYPE CONSOLE}

var
  C: Currency;
begin
  C := 1.32;

  if C <> 1.32 then
  begin
    WriteLn('strange');
  end;

  ReadLn;
end.

[Bummi]

Das ist aber keine Spezialität von Currency.
Ein Vergleich von
   if C <> 1.32 then wird außer bei Extended und Variant immer anschlagen single,real,double ....

[mjustin]

Zitat von Bummi:

Das ist aber keine Spezialität von Currency.

Laut Barry Kelly ist Currency "not susceptible to precision issues in the same way that floating point code is." (link), insofern ist Currency schon etwas Besonderes. In den meisten Delphi Version liefert der Vergleich auch wie erwartet False.

[Union]

Deshalb gibt es ja die Funktion CompareValue:

Delphi-Quellcode:

if CompareValue(1.32, C, 0.005) <> EqualsValue then
   Writeln('Arrrr');

[Furtbichler]

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:

Zitat von Bummi:

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.

[Jonas Shinaniganz]

Ich vergleiche immer ganz gerne mit einer eigenen Funktion, der ich noch einen Tolleranz-Wert mit übergebe . Grüße
function IsAboutEqual(Zahl1, Zahl2 : Double; Tolleranz : Integer) : Boolean;

[Bummi]

Mein Fokus lag nicht auf einem Vergleich von Fließkommazahlen, sondern auf der Zuweisung von Konstanten und dem Vergleich mit ihnen, da hier der Wert eines Typs Extended mit was auch immer verglichen wird.
CompareValue, SameValue etc. sind mir durchaus geläufig.

@mjustin danke, ich kannte den Beitrag auf Stackoverflow, hatte dieses Verhalten allerdings aufgrund der Verarbeitung mit Fließkommazahlen als selbstverständlich angesehen.
Wirklich unschön finde ich dass sich das Verhalten bei den verschiedene Delphiversionen unterscheidet.