为什么连成功后Timer1控件就不在循环了

Question

procedure TForm1.Timer1Timer(Sender: TObject);
begin
IdTCPClient1.Host:=192.168.1.88;
IdTCPClient1.Port:=5555;        
 if not IdTCPClient1.Connected then begin
  try
      IdTCPClient1.Connect;      
      IdTCPClient1.Writeln(ip_w);      
      StatusBar1.Panels.Items[0].Text:='连接成功！';
  except
      StatusBar1.Panels.Items[0].Text:='连接错误！';
      exit;
  end;
 end;end;
为什么连成功后Timer1控件就不在循环了

Answer 1

难道其他地方有
Timer1.Enabled:=False;????

Answer 2

if not IdTCPClient1.Connected then begin
你的这条语句已经跳过下面的过程了。

Answer 3

楼上的回答正确，楼主若不相信Timer1Timer事件还在执行，可以在if not IdTCPClient1.Connected then begin语句设置断点，它一定会运行到这句停下。

Answer 4

楼主的代码应该改为这样：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  IdTCPClient1.Host:=192.168.1.88;
  IdTCPClient1.Port:=5555;        
  if not IdTCPClient1.Connected then begin
  try
    IdTCPClient1.Connect;      
    IdTCPClient1.Writeln(ip_w);      
    StatusBar1.Panels.Items[0].Text:='连接成功！';
    Timer1.Enabled:=False;
  except
    StatusBar1.Panels.Items[0].Text:='连接错误！';
    exit;
  end;
end;

Answer 5

如果没有time.enabled := false,那这个timer一直会执行.
你这个是因为你的代码有判断连接成功与否的标志:
if not IdTCPClient1.Connected then begin