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在combobox下拉框里显示图片

如何为Delphi程序添加事件和事件处理器

Delphi10.2.3实现http异步下载

Delphi 时间到就触发事件

Delphi 如何把一个exe做为res加入到dll中,并在运行时生成exe文件执行

Delphi 中format的字符串格式化使用说明

Delphi api 函数: getcursorpos 与转换

Delphi使用idhttp.get('') 造成假死(堵塞),请问线程idhttp怎么才能做到不出错?

Delphi共享软件防破解的实用方法

Delphi 动态添加资源文件

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



打赏

取消

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

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

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

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

评论

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