为什么我不能用sin()画一条曲线呢？

Question

我一用就出错，去掉就没事了

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  R: Extended;
  i, j: integer;
begin
  for i:=0 to 200 do
  begin
    R := Sin(i);
    j := Trunc(R*100);
    Canvas.LineTo(i*10, j+100);
  end;
end;

Answer 2

我对图形编程也不熟，不好意思，只能给你一个思路定义自己的坐标，使用循环给X赋值，然后计算出Y，需要转换为整型值，然后在(X,Y）处绘图我的理解是这样，具体我没有试过，实在是对不住了！