本文整理自网络,侵删。
在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中datetimepicker控件同时输入日期和时间
Delphi分别连接ms sqlserver、oracle和access数据库的连接字符串
Delphi中输入框不能输入初数字意外的字符串的函数(isnumeric)
更多相关阅读请进入《Delphi》频道 >>