您的位置:首页 > 编程语言 > Delphi

DELPHI 异常处理

2020-02-16 12:50 369 查看

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

异常的另一个优点是,定义了一个统一而且通用的错误报告机制,该机制由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;
// long (and wrong) computation…
for I := 1000 downto 0 do
J := J + J div I;
//以下语句不会执行,因为在发生异常后
Mes

内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: