如何画正弦曲线？？

Question

如题。

Answer 1

在哪儿画? 如果是在窗体上就直接用sin生成点的位置,画点就行了

Answer 2

procedure TForm1.FormPaint(Sender: TObject);
var
  A: Real;
begin
  Canvas.FillRect(Canvas.ClipRect);
  A := -2 * PI;
  while a <= 2 * PI do begin
    A := A + PI / 1000;
    Canvas.Pixels[Trunc((A / (4 * PI)) * ClientWidth) + ClientWidth div 2,
      Trunc(Sin(A) * (ClientHeight / 2)) + ClientHeight div 2] := clRed;
  end;
end;