分子完了...> 还是刚刚TCPCLIENT控件问题,但是不行啊.>救命 ( 积分: 5 )

单元二:

Procedure checkroot;
var
kaiqi:integer;
begin
for kaiqi:=1 to 255 do
begin
sleep(100);
form1.Client.RemoteHost:='192.168.1.'+inttostr(kaiqi);
zjip:='192.168.1.'+inttostr(kaiqi);
form1.Client.Active:=False;
form1.Client.remotePort:='80';
form1.Client.Active:=TRUE;
if form1.Client.Connected <> false then form1.ListBox1.Items.Add(zjip);
end;

后来我加了的时钟,在单元一中.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
continue; // 就是这句,怎么跳出单元二的for循环?
end;

另外我用Indy中的Tcpclient,但是无法扫描.

主要就是想设置下超时.好烦的问题.麻烦给出代码吧 谢谢..