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;
Dann noch noch nach jeder Funktion ein inline ergänzt und der Code dürfte schneller sein als dein alter Code da er einen Funktionscall einspart.
Windows Vista - Eine neue Erfahrung in Fehlern.