本文整理自网络，侵删。
在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》频道 >>
