给你一个类似的小例子,我是用随机数控制图像 procedure TForm1.Timer1Timer(Sender: TObject); var t:Longint; Temp:integer; i,j:integer; M:array[0..50]of Integer;begin for t:=0 to Chart1.SeriesCount-1 do With Chart1.Series[t] do begin Series1.Clear; randomize; for i:=0 to 50 do M[i]:=i; for i:=0 to 50 do begin j:=random(51-i)+i; Temp:=M[i]; M[i]:=M[j]; M[j]:=Temp; Series1.Add(j,''+inttostr(j),clRed); end; end; end;
2。用TChart.AddSeries方法把Series添加进去就可以了。
3。你要显示的数据可以赋值给TSeries对象。可以for 赋值,
也就是说可以给TSeries赋很多的值。
procedure TForm1.Timer1Timer(Sender: TObject);
var
t:Longint;
Temp:integer;
i,j:integer;
M:array[0..50]of Integer;begin
for t:=0 to Chart1.SeriesCount-1 do
With Chart1.Series[t] do
begin
Series1.Clear;
randomize;
for i:=0 to 50 do
M[i]:=i;
for i:=0 to 50 do
begin
j:=random(51-i)+i;
Temp:=M[i];
M[i]:=M[j];
M[j]:=Temp;
Series1.Add(j,''+inttostr(j),clRed);
end;
end;
end;