关于线程里面读取内存地址出错。头疼中，期待帮助！

路上不塞车

是一段自动回血的代码。放在线程里面操作的。代码看起来没错误，而且编译通过，运行的时候没出现错误提示，但是就是通不过。具体代码如下

线程：

1.   
   
2. {自动补药:回红}  
   
3. TAutoTonicHP_Thread=Class(tThread)  
   
4. Public                        
   
5.   Procedure Execute;Override;  
   
6.   Constructor Create;virtual;  
   
7. End;
   
8. {自动回红}
   
9. Procedure TAutoTonicHP_Thread.Execute;
   
10. begin
    
11.   AutoTonicForHp();
    
12. end;
    
13. Constructor TAutoTonicHP_Thread.Create;
    
14. begin
    
15.   Inherited Create(False);
    
16.   FreeOnTerminate:=True;
    
17. end;  
    

复制代码

//回红里面的过程AutoTonicForHp()：

1. 
   
2. Procedure AutoTonicForHp();
   
3. begin
   
4.   GetSetIniInfo();     //读取INI文件里面的设置信息
   
5.   While true do
   
6.   begin
   
7.     Sleep(1);
   
8.     if Game.SetInfo.AutoTonic=False then Exit;          //如果不设置自动回血则退出
   
9.     if Game.SetInfo.MyHpLower > 100 then Exit;       //如果设置的血量保护的百分比大于100则退出，保护是按照百分来判断，比如血量小于20/100则回红
   
10.     if Game.Role.HP / Game.Role.AllHP < Game.SetInfo.MyHpLower / 100 then    //如果现在血量跟总血量的比例小于设定的比例时则开始吃药
    
11.     begin
    
12.       if Game.SetInfo.TonicOrder=1 then    //吃药顺序，1是从小药到大药，2是从大药到小药，其他则是吃指定的药
    
13.       begin
    
14.         if GetCountForBag('小金疮药')>0 then
    
15.           Medicine('小金疮药')
    
16.         else if GetCountForBag('金疮药')>0 then
    
17.           Medicine('金疮药')
    
18.         else if GetCountForBag('大金疮药')>0 then
    
19.           Medicine('大金疮药')
    
20.         else if GetCountForBag('续命水')>0 then
    
21.           Medicine('续命水');
    
22.       end
    
23.       else if Game.SetInfo.TonicOrder=2 then  //同上
    
24.       begin
    
25.         if GetCountForBag('续命水')>0 then
    
26.           Medicine('续命水')
    
27.         else if GetCountForBag('大金疮药')>0 then
    
28.           Medicine('大金疮药')
    
29.         else if GetCountForBag('金疮药')>0 then
    
30.           Medicine('金疮药')
    
31.         else if GetCountForBag('小金疮药')>0 then
    
32.           Medicine('小金疮药');
    
33.       end
    
34.       else
    
35.         Medicine(Game.SetInfo.SpecifyHP);    //吃指定的药
    
36.       Sleep(Game.SetInfo.TonicDelay*1000);    //如果吃药了的话延迟多久才再次吃药
    
37.     end;
    
38.   end;
    
39. end;
    

复制代码

上面的那个点击背包CALL：ClickTheBag(I:Integer)，如果不在线程里面，单独用个按钮来执行，则完全正常，那两个对话框都能弹出并且执行了后面的代码