Delphi的学习笔记十七——Exception处理

异常常用在硬件、内存、I/O和操作系统错误中。

[delphi]  view plain  copy

1. try  
2.    AssignFile(F,FileName);  
3.    Reset(F);  
4. except  
5.    on Exception do ...  
6. end;  

定义并声明一个异常：

[delphi]  view plain  copy

1. function StrToIntRange(const S:string;Min,Max: Longint) : Longint;  
2. begin  
3.     Result := StrToInt(S);  
4.     if (Result < Min) or (Result > Max) then  
5.    raise ERangeError.CreateFmt('%d is not within the valid range of %d..%d',[Result,Min,Max]);  
6. end;  

语法：

[delphi]  view plain  copy

1. try  
2.   X := Y/Z;  
3. except  
4.   on EZeroDivide do HandleZeroDivide;  
5. end;  

或

[delphi]  view plain  copy

1. try  
2. ...  
3. except  
4.   on EZeroDivide do HandleZeroDivide;  
5.   on EOverflow do HandleOverflow;  
6.   on EMathError do HandleMathError;  
7. else  
8.   HandleAllOther;  
9. end;  

Re-raising exception(重新引发一个异常)

[delphi]  view plain  copy

1. function GetFileList(const Path: string): TStringList;  
2. var  
3.    I: Integer;  
4.    SearchRec: TSearchRec;  
5. begin  
6.    Result := TStringList.Create;  
7.    try  
8.       I:= FindFirst(Path,0,SearchList);  
9.      While I = 0 do  
10.      begin  
11.          Result.Add(SearchRec.Name);  
12.          I := FindNext(SearchRec);  
13.      end;  
14.    except  
15.      Result.Free;  
16.      raise;  
17.    end;  
18. end;  

 

Nested Exception（内嵌异常）

[delphi]  view plain  copy

1. type  
2.   ETrigError = class(EMathError);  
3. function Tan(X : Extended) : Extended;  
4. begin  
5.     try  
6.       Result := Sin(X) /Cos(X);  
7.     except  
8.       on EMathError do  
9.           raise ETrigError.Create('Invalid argument to Tan');  
10.    end;  
11. end;  

try……finally

[delphi]  view plain  copy

1. Reset(F);  
2. try  
3. ...  //process file F  
4. finally  
5.    CloseFile(F);  
6. end;  

经常在开发中用到的是以下这种模式即try...except...finally

[delphi]  view plain  copy

1. procedure TForm1.Button1Click(Sender: TObject);  
2. begin  
3.  try  
4.    try  
5.       showmessage('ok');  
6.     except  
7.        ShowMessage('except');  
8.     end;  
9.   finally  
10.     ShowMessage('finally');  
11.   end  
12. end;