新手的多线程问题(100分)

E

eyas

Unregistered / Unconfirmed
GUEST, unregistred user!
建立一个新线程从New Items双击Thread Object添加,要是我想建立10个新线程呢一起
工作呢?不是要从那里添加10次吧?
另外怎么动态添加新线程?
我是新新手,请各位能耐心的说详细点吗?最好有例子:)
 
type
TMyThread = class(TThread)
...
end;
var
i: integer;
Threads: array[0..9] of TMyThread;
begin
for i := Low(Threads) to High(Threads)do
begin
Threads := TThread.Create(False);
...
end;
end;
 
<A
href="file://C:/Program Files/Borland/Delphi5/Demos/Threads/thrddemo.dpr">file://C:/Program
Files/Borland/Delphi5/Demos/Threads/thrddemo.dpr</A>
 
type
Thread = Class(TThread)
private
Pt:array{1..10] of tthread;
...
end;
var
i:integer;
begin
for i:=1 to 10do
pt:=Thread.create(self);
end;

end.
 
多人接受答案了。
 
对了,clyin,gerry yang,能不能给我解释一下
Thread.create(self)与TThread.Create(False)有何区别?谢谢:)
 
呵呵,TThread.Create(False)表示线程对象创建后自动调用Execute方法,
如果参数为True,Execute方法不会自动调用,除非调用Resume方法。
gerry yang 的方法必须重载Create方法,否则是错误的。
 

Similar threads

回复
0
查看
707
不得闲
D
回复
0
查看
714
DelphiTeacher的专栏
D
顶部