einen Kreis zu Fuß zeichen

[alcaeus]

Hi MrWhoopee,

anscheinend programmiere ich zuviel php
Hier der überarbeitete Code

Delphi-Quellcode:

function DegToRad(Deg: Real): Real;
begin
  Result := Deg*Pi/180;
end;

procedure ZeichneKreis(mx, my: Integer; r: Real; aCanvas: TCanvas);
var
  i: Integer;
  x, y: Real;
begin
  aCanvas.MoveTo(Round(mx+r), Round(my));
  for i := 1 to 359 do
  begin
    x := r*cos(DegToRad(i));
    y := r*sin(DegToRad(i));
    aCanvas.LineTo(Round(mx+x),Round(my-y));
  end;
  aCanvas.LineTo(Round(mx+r), Round(my));
end;

Zu deinen Fehlern, hast du die Unit Graphics eingebunden? Das ist der einzige Fehler der mir einfällt.

Greetz
alcaeus

[edit]Fehler im Code, siehe nächsten Beitrag[/edit]