怎样在chart组件里面画坐标曲线能够不按照点的横坐标值依次画线，而是按时间顺序阿。 ( 积分: 50 )

比如：（5，4），（6，3），（7，4），（8，4），（3，1），（4，1），（2，1）是按时间顺序输入的点，但是在画图时却是：）（2，1），（3，1），（4，1），（5，4），（6，3），（7，4），（8，4）
怎么设置参数才能使得画的点是按时间顺序的点的连线

比如：（5，4），（6，3），（7，4），（8，4），（3，1），（4，1），（2，1）是按时间顺序输入的点，但是在画图时却是：）（2，1），（3，1），（4，1），（5，4），（6，3），（7，4），（8，4）
怎么设置参数才能使得画的点是按时间顺序的点的连线

不要用chart了，直接自己画就可以了，何必还要这个呢？

怎么直接自己画啊？我只会用chart里面的series画。

procedure TqxChild.DBChart3AfterDraw(Sender: TObject);
var
x,i:Integer;
begin
//画粗线
Dbchart3.Canvas.Pen.Width:=1;
Dbchart3.Canvas.Pen.Color:=CLBLACK;
Dbchart3.Canvas.MoveTo(Dbchart3.ChartRect.Left,Dbchart3.ChartRect.Top);
Dbchart3.Canvas.LineTo(Dbchart3.ChartRect.Right,Dbchart3.ChartRect.Top);
x:=(Dbchart3.ChartRect.Top+Dbchart3.ChartRect.Bottom) div 2;
Dbchart3.Canvas.MoveTo(Dbchart3.ChartRect.Left,x);
Dbchart3.Canvas.LineTo(Dbchart3.ChartRect.Right,x);
IF RButJS=1 Then
begin
Dbchart3.Canvas.Pen.Color:=CLBlack;
x:=(Dbchart3.ChartRect.Right-Dbchart3.ChartRect.Left) div 12;
For i:=1 To 5 DO
begin
Dbchart3.Canvas.MoveTo(Dbchart3.ChartRect.Left+x*i,Dbchart3.ChartRect.Top);
Dbchart3.Canvas.LineTo(Dbchart3.ChartRect.Left+x*i,Dbchart3.ChartRect.Bottom);
End;
x:=(Dbchart3.ChartRect.Right-Dbchart3.ChartRect.Left) div 2;
Dbchart3.Canvas.MoveTo(Dbchart3.ChartRect.Left+x,Dbchart3.ChartRect.Top);
Dbchart3.Canvas.LineTo(Dbchart3.ChartRect.Left+x,Dbchart3.ChartRect.Bottom);
x:=x div 6;
For i:=1 To 5 DO
begin
Dbchart3.Canvas.MoveTo(Dbchart3.ChartRect.Right-x*i,Dbchart3.ChartRect.Top);
Dbchart3.Canvas.LineTo(Dbchart3.ChartRect.Right-x*i,Dbchart3.ChartRect.Bottom);
End;
End
Else IF RButJS=0 Then
begin
Dbchart3.Canvas.Pen.Color:=CLBlack;
x:=(Dbchart3.ChartRect.Right-Dbchart3.ChartRect.Left) div 3;
Dbchart3.Canvas.MoveTo(Dbchart3.ChartRect.Left+x,Dbchart3.ChartRect.Top);
Dbchart3.Canvas.LineTo(Dbchart3.ChartRect.Left+x,Dbchart3.ChartRect.Bottom);
Dbchart3.Canvas.MoveTo(Dbchart3.ChartRect.Right-x,Dbchart3.ChartRect.Top);
Dbchart3.Canvas.LineTo(Dbchart3.ChartRect.Right-x,Dbchart3.ChartRect.Bottom);
End;
end;