怎样启动线程?

Question

......
  TMyThread=class(TThread)
  end;  Thread1=class(TMyThread)
   procedure execute;OverRide;
  end;
  ......
procedure x;
var
 i:integer;
begin
 for i:=1 to 1000 do
 begin
  Form1.Edit1.Text:=IntToStr(i);
 end;
end;procedure Thread1.execute;
begin
 x;
end;然后怎样启动这个线程啊?

Answer 1

procedure execute;OverRide;
?是overload吧!

Answer 2

procedure execute;
begin
 x;
end;var
h:Thandle;
id:dword;
begin
  h:=CreateThread(nil,0,@excute,nil,0,id);//启动线程
  closehandle(h);
end;

Answer 3

你在另外要调用的地方
用
TMyThread.create(false);表示马上启动

Answer 4

gaodz(慕白) 兄厉害了,从这几行代码就能看出来他是燕大毕业的了.

Answer 5

To ljmanage(过客):
  啊? False 才表示马上启动,我写成 True ,难怪! 谢谢!To gaodz(慕白):
  我也不知道这个 OverRide 与 OverLoad 是什么意思.谢谢.不过,我不是燕大的...

Answer 6

override是覆盖,覆盖父类中的过程或函数
overload是重载,过程名或函数名可以相同,而参数个数或位置或类型不同

Answer 7

如果是用TMyThread，可以用Resume()启动线程（这好象是 cb的），vc中是ResumeThread

Answer 8

那你可以结贴了
TRue的话，要自己手工TMyThread.resume才开始执行