在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
相关资料: http://blog.csdn.net/a20071426/article/details/10160171
实例代码: 1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, StdCtrls; 8 9 type 10 TForm1 = class(TForm) 11 Button1: TButton; 12 procedure Button1Click(Sender: TObject); 13 private 14 { Private declarations } 15 public 16 { Public declarations } 17 end; 18 19 var 20 Form1: TForm1; 21 22 implementation 23 24 {$R *.dfm} 25 26 procedure TForm1.Button1Click(Sender: TObject); 27 var 28 int1: Integer; 29 begin 30 try 31 int1 := StrToInt('A'); 32 except 33 raise Exception.CreateFmt('%d = %s',[1001, '您的程序在Unit1单元32行出错了!']); 34 end; 35 end; 36 37 end.
http://www.cnblogs.com/FKdelphi/p/6281539.html
相关资料: http://blog.csdn.net/a20071426/article/details/10160171
实例代码: 1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, StdCtrls; 8 9 type 10 TForm1 = class(TForm) 11 Button1: TButton; 12 procedure Button1Click(Sender: TObject); 13 private 14 { Private declarations } 15 public 16 { Public declarations } 17 end; 18 19 var 20 Form1: TForm1; 21 22 implementation 23 24 {$R *.dfm} 25 26 procedure TForm1.Button1Click(Sender: TObject); 27 var 28 int1: Integer; 29 begin 30 try 31 int1 := StrToInt('A'); 32 except 33 raise Exception.CreateFmt('%d = %s',[1001, '您的程序在Unit1单元32行出错了!']); 34 end; 35 end; 36 37 end.
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论