刚学线程,求大家帮忙!100分 ( 积分: 100 )

  • 主题发起人 主题发起人 mh527
  • 开始时间 开始时间
M

mh527

Unregistered / Unconfirmed
GUEST, unregistred user!
请问如果让3个线程一起循环1到10000并显示在ListBox1里,最好有代码,弄了好几天还不明白~谢谢大家了
 
请问如果让3个线程一起循环1到10000并显示在ListBox1里,最好有代码,弄了好几天还不明白~谢谢大家了
 
unit Unit2;
interface
uses
Classes;
type
TMyThread = class(TThread)
private
protected
procedure Execute;
override;
end;
implementation
{ TMyThread }
procedure TMyThread.Execute;
var
i:integer;
begin
for i:=1 to 10000do
;
end;
end.
 
先谢了~这个还是一个线程呀
 
调用3次
procedur g
var
t:TMyThread;
i:integer;
begin
for i:=1 to 3do
TMyThread.create(false);
end;
 
先谢您,我的意思是一起循环,现在是循环3次了~谢谢您了
兄弟能告诉QQ号码吗?
 
是创建三个线程
不是循环3次
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部