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

最新推荐文章于 2023-04-23 10:01:13 发布

kimifdw

最新推荐文章于 2023-04-23 10:01:13 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： exception

本文链接：https://blog.youkuaiyun.com/kimifdw/article/details/8559622

Delphi 专栏收录该内容

43 篇文章

订阅专栏

本文深入探讨了异常处理在编程中的应用，并详细介绍了嵌入式开发中的关键技术，包括硬件、内存、I/O和操作系统错误的处理，以及如何在实际开发中合理使用这些技术。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

try
   AssignFile(F,FileName);
   Reset(F);
except
   on Exception do ...
end;

定义并声明一个异常：

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

语法：

try
  X := Y/Z;
except
  on EZeroDivide do HandleZeroDivide;
end;

或

try
...
except
  on EZeroDivide do HandleZeroDivide;
  on EOverflow do HandleOverflow;
  on EMathError do HandleMathError;
else
  HandleAllOther;
end;

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

function GetFileList(const Path: string): TStringList;
var
   I: Integer;
   SearchRec: TSearchRec;
begin
   Result := TStringList.Create;
   try
      I:= FindFirst(Path,0,SearchList);
     While I = 0 do
     begin
         Result.Add(SearchRec.Name);
         I := FindNext(SearchRec);
     end;
   except
     Result.Free;
     raise;
   end;
end;

Nested Exception（内嵌异常）

type
  ETrigError = class(EMathError);
function Tan(X : Extended) : Extended;
begin
    try
      Result := Sin(X) /Cos(X);
    except
      on EMathError do
          raise ETrigError.Create('Invalid argument to Tan');
   end;
end;

try……finally

Reset(F);
try
...  //process file F
finally
   CloseFile(F);
end;

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

procedure TForm1.Button1Click(Sender: TObject);
begin
 try
   try
      showmessage('ok');
    except
       ShowMessage('except');
    end;
  finally
    ShowMessage('finally');
  end
end;