delphi爱心的X轴Y轴坐标计算

Delphi 爱心的 X 轴和 Y 轴坐标计算可以通过以下代码实现：

procedure TForm1.DrawHeart(Sender: TObject);
var
  x, y: Integer;
  t: Double;
begin
  with Image1.Canvas do
  begin
    Pen.Color := clRed;
    Pen.Width := 2;
    t := 0;
    while t <= 2 * Pi do
    begin
      x := Round(16 * Power(Sin(t), 3));
      y := Round(-13 * Cos(t) + 5 * Cos(2 * t) + 2 * Cos(3 * t) + Cos(4 * t));
      MoveTo(x + Image1.Width div 2, y + Image1.Height div 2);
      LineTo(x + Image1.Width div 2, y + Image1.Height div 2);
      t := t + 0.01;
    end;
  end;
end;

上面的代码中，使用了数学公式来计算爱心的 X 轴和 Y 轴坐标，其中 `t` 表示角度，`x` 和 `y` 计算出的是对应角度下的 X 轴和 Y 轴坐标。通过循环，将每个点连接起来，最终绘制出一个完整的爱心图案。