Hallo,
für besseres Debuggen würde ich das Auseinandernehmen
aus
Koord[i].x:=Round(PositionX+Sin(Winkel_1+Winkelz[i])*10);
wird
Delphi-Quellcode:
var
iValue: Integer;
iValue:= Round(PositionX+Sin(Winkel_1+Winkelz[i])*10);
Koord[i].x:= iValue;
Wo kommt der Fehler jetzt ?
Bei Round oder bei
Koord[i].x:= iValue ?
Auch das
Winkel_1+Winkelz[i] könnte man noch in einer
lokalen Variable ablegen.
Heiko