Hey ho!
Ich habe schon wieder ein Problem, diesmal mit der Grafikausgabe.
Delphi-Quellcode:
arm1.X := position.X + 2*cos(2*Pi/360*winkel);
arm1.Y := position.Y + 2*sin(2*Pi/360*winkel);
arm2.X := position.X + 2*cos(2*Pi/360*winkel);
arm1.Y := position.Y - 2*sin(2*Pi/360*winkel);
Form1.Canvas.Pixels[round(arm1.X),round(arm1.Y)] := Form1.Color; //Arm 1
Form1.Canvas.Pixels[round(arm2.X),round(arm2.Y)] := Form1.Color; //Arm 2
Ergibt bei mir einen "Critical Error", der erst zur Laufzeit passiert. Er sagt mir, dass eine ungültige Float-Operation gemacht wurde. Ich habe schon herausgefunden dass es in den beiden Zeilen ist, wo die Pixel umgesetzt werden.
Aber warum kommt dort ein Float-Fehler, die 4 Berechnungen macht er problemlos?
Nicht über die Punkte wundern, ich habe mir einen neuen Punkttyp erstellt, der Single-Werte als X und Y nimmt.
Flare