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 网上获取北京时间 tinifile.readsection 方法在 android 下的应用及各种字符编码问题

Delphi 泛型数组 strsplit 字符串分割

Delphi 比较两数字大小取最大值

Delphi正则表达式匹配中文

Delphi 几个日期操作

Delphi-adoquery查询、插入、删除、修改

Delphi 读写文本文件

Delphi版inf方式加载驱动

什么是嵌入式数据库

Delphi 数据库重置用户密码制作

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...