求求求求大神帮忙

蚂蚁_Data

关于多线程的，我就写了几行代码而已，编译通过，但是只要一触发FOR循环就出错，，，，如果去掉红色框框内的代码就不报错了，为什么呢？

aminghanhua

楼主可以加上Application.ProcessMessages; 一般用在比较费时的循环中, 它会检查并先处理消息队列中的其他消息，但还不属于多线程

1. var
   
2. i,m:integer;
   
3. begin
   
4. m:=1;
   
5. for i:=0 to 500000 do
   
6. begin
   
7. lbl1.caption:=IntTostr(strtoint(lbl1.caption)+m);
   
8. m:=m+1;
   
9. Application.ProcessMessages;
   
10. end;
    
11. end;

复制代码

也可改为

1. type
   
2.   TMyThread = class(TThread)
   
3.   protected
   
4.     procedure Execute; override;
   
5. end;
   
6. 
   
7. var
   
8.   Form1: TForm1;
   
9. 
   
10. implementation
    
11. 
    
12. {$R *.dfm}
    
13. 
    
14. procedure TMyThread.Execute;
    
15. var
    
16.   i,m: Integer;
    
17. begin
    
18.   FreeOnTerminate := True;
    
19.   for i := 0 to 500000 do
    
20.   begin
    
21.   Form1.lbl1.caption:=IntTostr(strtoint(Form1.lbl1.caption)+m);
    
22.   m:=m+1;
    
23.   end;
    
24. end;
    
25. 
    
26. procedure TForm1.Button1Click(Sender: TObject);
    
27. begin
    
28.   TMyThread.Create(False);
    
29. end;

复制代码