谁给一个画圆的代码我？

Question

我要一个procedure draw(x,y,r:integer)
画一个圆。

Answer 1

procedure Draw(x, y, r : integer; ACanvas : TCanvas);
begin
  ACanvas.Ellipse(x-r,y-r,x+r,y+r);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Draw(100,50,20,Canvas);
end;

Answer 2

procedure TEntityLineManager.DrawCircle(Center: TAny2DPoint;
  Radius: Double);
var
  i:Integer;
  Angle:Double;
  Radians1, Radians2:Double;
begin
  Angle:=360/SegmentCount;
  Radians1:=PI/180*Angle;
  Radians2:=Radians1;
  MoveTo(Radius, 0);
  for i:=1 to SegmentCount do
  begin
    LineTo(Radius*cos(Radians2), Radius*sin(Radians2));
    Radians2:=Radians2+Radians1;
  end;
end;