delphi XE中使用TChart绘制平滑曲线

在TChart系列中添加行

通常，当您编写折线图时，它看起来像这样：

Series1.Clear;

Series1.AddXY(0, 0);

Series1.AddXY(1, 1);

Series1.AddXY(2, 1);

Series1.AddXY(3, 0);

Series1.AddXY(4, -1);

Series1.AddXY(5, -1);

Series1.AddXY(6, 0);

执行结果

使该图成为平滑曲线。

uses TeeSpline;

var

  BSpline: TBSpline;

  I: Integer;

begin

  BSpline:=TBSpline.Create;

  BSpline.AddPoint(0, 0);

  BSpline.AddPoint(1, 1);

  BSpline.AddPoint(2, 1);

  BSpline.AddPoint(3, 0);

  BSpline.AddPoint(4, -1);

  BSpline.AddPoint(5, -1);

  BSpline.AddPoint(6, 0);

  BSpline.Interpolated := True;

  Series1.Clear;

  for I := 0 to BSpline.Fragments do

  begin

    with BSpline.Value(I / BSpline.Fragments) do

      Series1.AddXY(X, Y);

  end;

  BSpline.Free;

end;

执行结果