请教个定时器的问题！

waxfdx 发布于 2006-11-19 14:53， 711 次点击

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text:='haha';
if Timer1.Interval:='5000' then
Timer1.Enabled:=false;
Edit1.Text:='hehe';
end;
end;
end.
定时器起碇的时候写入Edit1.Text为haha 当定时器跑到5000的时候自动停止并写入hehe,为什么我运行的时候来是提示错误呢，if Timer1.Interval:='5000' then
这句话那错了？
我是新手，谢谢！

1 回复

形影随从2006-11-20 09:36

if then語句需要用:=號嗎？這是賦值語句,判斷只用=號就行了,不用加:號呀.
再一個Timer1.Interval他的類型不是字符類型吧.你拿來跟字符串比較當然不行了.