TryForm.pas
资源名称:delphi.rar [点击查看]
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:2k
源码类别:
Delphi控件源码
开发平台:
Delphi
- unit TryForm;
- 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;
- MessageDlg ('Total: ' + IntToStr (J),
- mtInformation, [mbOK], 0);
- Screen.Cursor := crDefault;
- end;
- procedure TForm1.BtnTryFinallyClick(Sender: TObject);
- var
- I, J: Integer;
- begin
- Screen.Cursor := crHourglass;
- J := 0;
- try
- // long (and wrong) computation...
- for I := 1000 downto 0 do
- J := J + J div I;
- MessageDlg ('Total: ' + IntToStr (J),
- mtInformation, [mbOK], 0);
- finally
- Screen.Cursor := crDefault;
- end;
- end;
- procedure TForm1.BtnTryTryClick(Sender: TObject);
- var
- I, J: Integer;
- begin
- Screen.Cursor := crHourglass;
- J := 0;
- try try
- // long (and wrong) computation...
- for I := 1000 downto 0 do
- J := J + J div I;
- MessageDlg ('Total: ' + IntToStr (J),
- mtInformation, [mbOK], 0);
- finally
- Screen.Cursor := crDefault;
- end;
- except
- on E: EDivByZero do
- begin
- // re-raise the exception with a new message
- raise Exception.Create ('Error in Algorithm');
- end;
- end;
- end;
- end.