IF-Anweisung

[Slashmob]

Hi Leute,

wie schafft man es mit der IF-Anweisung die folgenden vier Bereiche zu unterscheiden?
Es handelt sich quasi um den Einheitskreis und Cosinus.
1.Quadrant: Winkel*10 von 0 bis 900
2.Quadrant: Winkel*10 von 901 bis 1800
3.Quadrant: Winkel*10 von 1801 bis 2700
4.Quadrant: Winkel*10 von 2701 bis 3600

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

Hier meine Idee, aber...

Code:

If cos(winkel*10)>0 and cos(winkel*10)<900 then
     Begin
           quadrant:= 1;
           vorzeichen:= 1;
     end;
     If cos(winkel*10)>900 and cos(winkel*10)<1800 then
     Begin
           quadrant:= 2;
           vorzeichen:= -1;
     end;
     If cos(winkel*10)>1800 and cos(winkel*10)<2700 then
     Begin
           quadrant:= 3;
           vorzeichen:= -1;
     end;
     If cos(winkel*10)>2700 and cos(winkel*10)<3600 then
     Begin
           quadrant:= 4;
           vorzeichen:= 1;
     end;

Fehlermeldung:
Error: Operation "and" not supported for types "Double" and "Double".

Die Fehlermeldung ist mir klar, aber ich muss ja den Winkel in 1/10° Schritten einlesen können
(z.B. Winkel= 120,1°)
Ich weiß nicht wie ich mein obiges Problem mit der If-Anweisung lösen kann.

Vielleicht hat der ein oder andere eine sinnvolle Idee oder einen Tipp.

Gruß Slash