超级白痴的问题 -- 如何多线程(1分)

G

gfwlxx

Unregistered / Unconfirmed
GUEST, unregistred user!
看了delphi7的deam,看不懂
看了其他n个多线程的例子,还看不懂
看了帮助,看了书,还看不懂
举例,wis是一个函数/过程.
50个线程运行wis[list]
怎么写?
////////////////////////////////////////////////////////////
procedure ThDo(P: pointer);
var
thid: dword;
begin
begin
thread(nil, 0, P, nil, 0, thid);
//线程
end;
讲解一下这代码
我真的刚学,所以不要笑我白痴. 谢谢
 
在主线程之外再开其它的子线程,这就是多线程
注意同步全局变量的访问
 
顶部