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如何把一个文本列表添加到tlistbox并避免重复项

Delphi 调用cmd命令行并取得返回结果

Delphi 获取局域网所有ip

通过崩溃地址找错误行数之Delphi

secsperday:一天共有多少秒

Delphi 使用tnethttprequest / tnethttpclient访问web服务器

Delphi 跨平台打开网址链接

Delphi 遍历类中的属性

Delphi获取机器的mac地址

Delphi tdictionary保存到文件

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



打赏

取消

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

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

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

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

评论

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