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;
执行结果
 

相关阅读 >>

Delphi 之 tpagecontrol组件

Delphi 字符串常识

Delphi:out参数和var参数的区别

Delphi 如何刷新文件图标

Delphi使用api实现模拟按键

获取网络日期

Delphi xe 可用的md5算法

Delphi memo 自动滚动到最底下

Delphi getsessionusername通过会话id得到会话名称

Delphi firedac 下的 sqlite [8] - 自定义函数

更多相关阅读请进入《Delphi》频道 >>