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 adoquery的post和updatebatch

Delphi 中的字符串

xe7提示找不到sharedactivitycontext函数

Delphi 通过窗口标题结束进程

Delphi中json回车换行符转义

Delphi mscomm1自动获取串口

Delphi 单击按钮左键弹起菜单

Delphi debug权限提升

Delphi rest请求控件增加请求头时不编码

如何判断硬盘是fat32还是ntfs

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



打赏

取消

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

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

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

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

评论

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