Kreisbahn um Objekt

[Christian S.]

So sollte es gehen:

Delphi-Quellcode:

procedure erdbahn(x0,y0,r: integer);
var grad,x,y: integer;
    phi: real;
begin
  for grad:=0 to 359 do
  begin
    phi:=180/Pi*grad;
    x:=round(r*cos(phi))+x0;
    y:=round(r*sin(phi))+y0;
    form1.Canvas.Pixels[x,y]:=clgreen;
  end;
end;

x0 und y0 sind dabei der Mittelpunkt der Kreisbahn und r der Radius. Der Rest sollte klar sein.

MfG,
Peter

//Edit: Du könntest vielleicht noch einen Parameter "Canvas" einführen, bei dem Du angibst, wo Du zeichen möchtest. Dann wäre es nicht auf Form1.Canvas beschränkt.