Delphi自绘网格坐标系正弦波演示

procedure TForm1.Button1Click(Sender: TObject);
var
  x, l,i,j: Integer;
  y, a: double;
begin
  Image1.Picture.Bitmap := TBitMap.Create;
  Image1.Picture.Bitmap.Width := Image1.Width;
  Image1.Picture.Bitmap.Height := Image1.Height;
  l := Image1.Picture.Bitmap.Width;

  for x := 0 to l do
  begin
    a := (x / l) * 2 * Pi; {角度化弧度}
    y := sin(2 * a); {为了加强美观效果，这里将振幅设为2}
    y := y * (Image1.Picture.Bitmap.Height / 2);
    y := y + (Image1.Picture.Bitmap.Height / 2);
    Image1.Picture.Bitmap.Canvas.Brush.Style := bsSolid;
    Image1.Picture.Bitmap.Canvas.Pixels[Trunc(x), Trunc(y)] := clRed; {当然也可以用LineTo过程来实现，但是要注意设置Pen.Width到合适的值}
  end;

// 绘制直角坐标系上显示的字符
  with Image1.Canvas do
  begin
    Font.Name    := 'Symbol';
    Font.Size    := 8;
    Font.Color   := clBlack;
    TextOut(2,Image1.Height div 2+1, '-2p');
    TextOut(Image1.Width div 4,I