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 内存流方式获取页面验证码图片

Delphi 通过窗口标题结束进程

Delphi 动态修改显示器分辨率

Delphi 百万次重复调用字符分割函数,不耗内存用法

Delphi xe(indy10)tidbytes转ansistring的实现

Delphi的对象注销方法destroy和free的区别

Delphi 读取文本文件的最后一行

Delphi webbrowser1 execwb 复制 新建 打开

Delphi如何判断系统是否安装了flash插件

Delphi获取文件大小

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



打赏

取消

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

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

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

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

评论

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