J
jxzqsun
Unregistered / Unconfirmed
GUEST, unregistred user!
我的程序是这样的。
Tokok = Class(TThread)
private
FconnID:Integer;
procedure Mytest;
protected
procedure Execute;override;
public
constructor Create(var connID:Integer);virtual;
end;
constructor Tokok.Create(var connID:Integer);
begin
try
inherited Create(True);
FconnID:=connID;
FreeOnTerminate := True;
Resume;
Sleep(10);
except
Exit;
end;
end;
procedure Tokok.Execute;
begin
Synchronize(Mytest);
end;
procedure Tokok.Mytest;
begin
……（有一个循环）
end;
再然后就是
button1.click
for i:=1 to strtoint(edit1.text)do
begin
connID:=i;
Tokok.Create(connID);
end;
其实我的目的很简单，循环创建edit1里面数量的线程，每个线程执行一个循环，就这么简单，可为什么我的程序是一个线程一个线程的运行？
Tokok = Class(TThread)
private
FconnID:Integer;
procedure Mytest;
protected
procedure Execute;override;
public
constructor Create(var connID:Integer);virtual;
end;
constructor Tokok.Create(var connID:Integer);
begin
try
inherited Create(True);
FconnID:=connID;
FreeOnTerminate := True;
Resume;
Sleep(10);
except
Exit;
end;
end;
procedure Tokok.Execute;
begin
Synchronize(Mytest);
end;
procedure Tokok.Mytest;
begin
……（有一个循环）
end;
再然后就是
button1.click
for i:=1 to strtoint(edit1.text)do
begin
connID:=i;
Tokok.Create(connID);
end;
其实我的目的很简单，循环创建edit1里面数量的线程，每个线程执行一个循环，就这么简单，可为什么我的程序是一个线程一个线程的运行？