delphi timer

有9个read（）函数，想一个个读取，每个需要时间200ms，然后重复，该怎么写timer？

不知道你的Read函数是不是一样

如果一样的话直接在FormCreate事件里面添加Timer的时间属性规定为200ms就可以

啊让你后在Timer事件里面调用Read函数

implementation
var
i: Integer;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 200;
i := 0; //读取计数
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Read();//这里调用你的函数
Inc(i);
if i = 9 then
Timer1.Interval := 0;
end;

end.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！