我在ontimer事件中写入了一段代码,interval也设为了15s,可是程序开始运行时15s以后,所有的点一下都画上了,这该如何控制呢,让它15秒画一段,15秒画一段 我的代码是procedure TForm1.Timer1Timer(Sender: TObject); var i:integer;begin for i:=0 to 59 do begin ChData1[i]:= random(200); dbChart1.Series[0].Add(ChData1[i],'',clRed);//.YValue[i] :=ChData1[i] ; end; end;
我现在是先用timer控件来模拟,想让它实现每隔15s,画一个点,该如何做呢?
我在ontimer事件中写入了一段代码,interval也设为了15s,可是程序开始运行时15s以后,所有的点一下都画上了,这该如何控制呢,让它15秒画一段,15秒画一段
我的代码是procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;begin
for i:=0 to 59 do
begin
ChData1[i]:= random(200);
dbChart1.Series[0].Add(ChData1[i],'',clRed);//.YValue[i] :=ChData1[i] ;
end;
end;
begin
ChData1[i]:= random(200);
dbChart1.Series[0].Add(ChData1[i],'',clRed);//.YValue[i] :=ChData1[i] ;
i:=i+1;
end;
现在是能实现15s一个点的功能了,可是打开界面,我什么也不做,等15秒它就自动开始画线了;怎么实现我控制它时它开始,我在一个button下写了一句“timer1.Enabled:=true;”,好像也没反应,我不点它,过15s以后它也开始画线,这该如何设置呢