Function für Vorzeichen?

[Dax]

Zitat von Christian Seehase:

Moin Zusammen,

ist ja schön, dass ihr so viele Vorschläge macht, wie man das bei integer-Werten machen kann, Cöster sucht das aber für Real

Nuuun *grübel*

Delphi-Quellcode:

function Sign(e: Extended): Integer;
begin
  Result := (0 - (e shr 79)) or 1;
end;