Double immer < MaxDouble

[QStorm]

Hallo,

Kann mir jemand erklären, warum die folgende if-Anweisung False zurück liefert?
Ich habe ein wenig im Internet gesucht. Jemand sprach von einem Compilerfehler. Das denke ich jedoch nicht, denn dann gäbe es wohl mehr darüber im Netz.

Code:

var
  Value : Double;
begin
  Value := MaxDouble;
  if (Value = MaxDouble) then;
end;

Ich arbeite mit Delphi XE.

Danke

[DeddyH]

Fließkommazahlen sind nur selten exakt gleich, nutze daher besser SameValue zum Vergleichen.

[QStorm]

Danke

[p80286]

Zitat von DeddyH:

Fließkommazahlen sind nur selten exakt gleich, nutze daher besser SameValue zum Vergleichen.

Dagegen ist ja nichts einzuwenden, aber wenn ich den Wert einer Konstanten einer Variablen zuweise, und diese dann wiederum mit der Konstanten vergleiche, dann sollte dies doch gleich sein. Oder wird dann auch "Interpretiert".

Gruß
K-H

[DeddyH]

Woher Rundungsfehler kommen und wie man mit ihnen umgeht
Ist zwar aus einem Java-Forum, die Problematik ist aber eher technischer Natur und daher auf keine Programmiersprache beschränkt.

[Medium]

Da kommt es wohl darauf an, wie "FPU-freundlich" die Konstante definiert ist. Zudem wird intern ja mit 80 Bit gerechnet, so dass da durchaus auch in diesem Fall Rundungen passieren können. Auch wäre interessant, ob Delphi nicht ggf. die Konstante wenn direkt verwendet als Extended interpretiert, während der zugewiesene wirklich ein Double ist. Dann wäre es sogar der offensichtlichste Fall.

[p80286]

Danke für die Aufklärung!

Gruß
K-H

[Sir Rufo]

Zitat von Medium:

Da kommt es wohl darauf an, wie "FPU-freundlich" die Konstante definiert ist. Zudem wird intern ja mit 80 Bit gerechnet, so dass da durchaus auch in diesem Fall Rundungen passieren können. Auch wäre interessant, ob Delphi nicht ggf. die Konstante wenn direkt verwendet als Extended interpretiert, während der zugewiesene wirklich ein Double ist. Dann wäre es sogar der offensichtlichste Fall.

Da der TE mit Delphi XE arbeitet muss man auch noch unterscheiden ob 32 oder 64 bit.

32bit: Extended rechnet mit 80 bit (mit FPU)
64bit: Extended rechnet mit 64 bit (ohne FPU)

Es gibt einen neuen Typen Extended80 der wiederum immer mit 80 bit arbeitet.

[Uwe Raabe]

Zitat von Sir Rufo:

Da der TE mit Delphi XE arbeitet muss man auch noch unterscheiden ob 32 oder 64 bit.

XE kann aber noch gar kein 64-Bit.

[Uwe Raabe]

Da es sich bei MaxDouble um keine typisierte Konstante handelt, wird sie intern als Extended dargestellt. Das kann man auch an der darauffolgenden HPPEMIT-Anweisung sehen. Insofern ist es tatsächlich so, daß nach Zuweisung zu einem Double der Vergleich mit der Konstanten fehl schlägt.

Man sollte auch im Hinterkopf behalten, daß die Konstanten je nach Delphi-Version unterschiedliche Werte haben können (unabhängig von 32/64-Bit).