Zitat von
Bernhard Geyer:
Unter .NET würde ich kein solches Bit-Gefummele mehr machen und einfach per
Delphi-Quellcode:
function IsNegZero(const AValue: Double): Boolean;
begin
result := (AValue <= 0);
end;
function IsPosZero(const AValue: Double): Boolean;
begin
Result := (AValue >= 0);
end;
Dieser Code funktioniert nicht, weil die Vergleichsoperatoren eben nicht zwischen positiver und negativer Null unterscheiden (siehe
IEEE 754).