出错处理不执行，应该是个简单问题。

 
  这段代码我故意让他出错(找不到文件),但是他却不进行出错处理...  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
   
      try  
          Icon.LoadFromFile   ('D:\WRONG_FILE.ICO');  
      except  
          on   EFOpenError   do  
          begin  
              ShowMessage('In   Exception   Process   Now...');  
          end;  
      end;  
          Icon.LoadFromFile   ('D:\CONTACTL.ICO');  
   
  end;  
  问题点数：50、回复次数：5Top

1 楼outer2000（天外流星）回复于 2002-03-30 16:32:39 得分 8

begin  
   
      try  
          Icon.LoadFromFile   ('D:\WRONG_FILE.ICO');  
      except  
          on   E:Exception   do  
          begin  
              ShowMessage('In   Exception   Process   Now...');  
          end;  
      end;  
          Icon.LoadFromFile   ('D:\CONTACTL.ICO');  
   
  end;Top

2 楼bigban（）回复于 2002-03-30 16:32:46 得分 2

我试了一下，程序会执行ShowMessage...的。Top

3 楼2468（火狐）回复于 2002-03-30 17:01:31 得分 40

在系统状态下运行，不要D环境下运行，D下的错误会被其环境先得到。  
  Top

4 楼yanyading（向OOP转行的Turbo Basic）回复于 2002-03-30 18:13:20 得分 0

原来如彼   :)Top

5 楼yanyading（向OOP转行的Turbo Basic）回复于 2002-03-30 19:12:47 得分 0

2468(火狐)   (     )   信誉：100     SHOULD   GET   THE   BEST   PRIZE!!!Top

相关问题

• 出错
• loadfromfile
• ico
• showmessage
• icon
• exception
• begin

• 帖主：yanyading
• outer2000
• bigban
• 2468

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载