DELPHI 异常处理

最新推荐文章于 2023-12-23 14:42:45 发布

pzdnzj

最新推荐文章于 2023-12-23 14:42:45 发布

阅读量265

点赞数

分类专栏： delphi 文章标签： delphi5从入门到精通

本文链接：https://blog.youkuaiyun.com/pzdnzj/article/details/99618174

版权

异常处理的思想：为使程序更加稳定，用一种简单而规范的方法添加一些处理软件或硬件错误的功能。
在发生错误时，程序可以保存下来，或从容退出，并在退出前允许用户保存数据。
异常还可以允许用户把错误处理代码从正常代码中分离出来，从而避免他们混杂在一起。

异常的另一个优点是，定义了一个统一而且通用的错误报告机制，该机制由DELPHI 组件使用。

unit ExcepF;

interface

uses
SysUtils, Windows, Messages, Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
BtnWrong: TButton;
BtnTryFinally: TButton;
BtnTryTry: TButton;
procedure BtnWrongClick(Sender: TObject);
procedure BtnTryFinallyClick(Sender: TObject);
procedure BtnTryTryClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.BtnWrongClick(Sender: TObject);
var
I, J: Integer;
begin
Screen.Cursor := crHourglass;
J := 0