Danke, aber jetzt bekomme ich mit:
Delphi-Quellcode:
Zahl := arctan2(Aim.Y, Aim.X);
Zahl := Zahl + (2*PI/16);
//Zahl := Zahl mod 2*Pi;
if zahl > 2*Pi then zahl := zahl - 2*Pi;
if zahl < 0 then zahl := zahl + 2*Pi;
Zahl := Zahl * 8/(2*PI);
Showmessage(IntToStr(round(Zahl)));
Nur entweder eins oder zwei zurückgegeben. Da muss wohl was falschgelaufen sein...?