IF-Anweisung

[himitsu]

Zitat:

    raise Exception.CreateFmt( 'Wert %f ungültig. (0° <= Wert < 360°)', [ Value ] );

Stattdessen könnte man auch einfach den Wertebereich anpassen, denn als Kreisfunktion (unendlich wiederholend) gibt es auch Winkel kleiner 0° und größer/gleich 360°.

Für eine "genaue" Prüfung muß man also eigentlich nur die Werte in den gewünschen Bereich (0 <= w < 360) verschieben.

Delphi-Quellcode:

w := w mod 360;
if w < 0 then Inc(w, 360);

// oder
w := (w mod 360 + 360) mod 360;

// oder
w := w mod 360 + (Max(-Sign(w), 0) * 360);

// oder
w := w mod 360 - Sign(Min(w, 0)) * 360;

// oder
...

[Sir Rufo]

Was aber nur geht, wenn der Winkel als Integer deklariert ist ...

[himitsu]

Es gibt notfalls auch andere Wege, für reelle Zahlen. (aber hier war'n ja Integer, da geht es sehr einfach)

[Sir Rufo]

Zitat von himitsu:

Es gibt notfalls auch andere Wege, für reelle Zahlen. (aber hier war'n ja Integer, da geht es sehr einfach)

Zitat von Slashmob:

Winkel ist als double deklariert, da ich ihn vorher aus einem maskedit in 1/10° schritten einlesen will.

Wo Integer?

[himitsu]

ups, verguckt

*sekündchen*
w := w - Floor(w / 360) * 360;