Wow, so eine kleine Funktion verursacht so viel geshcreibsel.
Warum schreibt denn nun keiner wie die Funktion richtig aussehen muss?
Delphi-Quellcode:
function Sign(Value: Real): Integer;
begin
if Value <= 0 then
result := -1
else
result := 1;
end;
Wieviel Millisekunden ist dieses "IF" denn langsamer? Oder anders ausgedrückt: Wie oft muss Cöster diese Funktion hintereinander aufrufen, um eine Verzögerung festzustellen?