IF-Anweisung

[himitsu]

Zitat:

Delphi-Quellcode:

    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:

Zitat von himitsu (Beitrag 1137881)

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

Zitat:

Zitat von Slashmob (Beitrag 1137859)

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

Wo Integer? :mrgreen:

[himitsu]

ups, verguckt :oops:

*sekündchen*

Delphi-Quellcode:

w := w - Floor(w / 360) * 360;