土
土土
Unregistered / Unconfirmed
GUEST, unregistred user!
看了以前帖,还不是很白。
1:try ...except
try
...
except on e : exception do
showmessage(e.message)
end;
大师处理时是显示e.message还是自己写的
2;在数据感知组件中posterror和deleterror也可处理。
如demo中的dberrors
eKeyViol = 9729; eForeignKey = 9733;其中的9729,9733哪里来的,固定吗
3:是否可以把2中的代码写在1的except下的?
4:你可以自己定义一个错误类,然后将Application.OnException指向它,下面是一个简单的例子.
这样,程序中的任何错误都逃不过它,你就可以将数据库及其它相关的错识代码写在里面,出
了什么问题,根据错误代码来提示,就不用你每个地方来写错误出错了.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,unit3;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
procedure AppException(Sender: TObject; E: Exception);
var
Form1: TForm1;
MyExceptionHandle:TMyExceptionHandle;
implementation
uses Unit2;
{$R *.dfm}
procedure AppException(Sender: TObject; E: Exception);
begin
if pos('valid integer',e.Message)>0 then
ShowMessage('OK')
else
Application.ShowException(E);
end;
procedure TForm1.Button1Click(Sender: TObject);
var aa:string;
ii:integer;
begin
aa:='b';
ii:=strtoint(aa);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
MyExceptionHandle:=TMyExceptionHandle.Create;
Application.OnException := MyExceptionHandle.AppExeption;
end;
end.
5:ado 和bde两者处理错误有区别吗?
请大师细细道 来,200分送上
6:说说错误处理流程啊》
1:try ...except
try
...
except on e : exception do
showmessage(e.message)
end;
大师处理时是显示e.message还是自己写的
2;在数据感知组件中posterror和deleterror也可处理。
如demo中的dberrors
eKeyViol = 9729; eForeignKey = 9733;其中的9729,9733哪里来的,固定吗
3:是否可以把2中的代码写在1的except下的?
4:你可以自己定义一个错误类,然后将Application.OnException指向它,下面是一个简单的例子.
这样,程序中的任何错误都逃不过它,你就可以将数据库及其它相关的错识代码写在里面,出
了什么问题,根据错误代码来提示,就不用你每个地方来写错误出错了.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,unit3;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
procedure AppException(Sender: TObject; E: Exception);
var
Form1: TForm1;
MyExceptionHandle:TMyExceptionHandle;
implementation
uses Unit2;
{$R *.dfm}
procedure AppException(Sender: TObject; E: Exception);
begin
if pos('valid integer',e.Message)>0 then
ShowMessage('OK')
else
Application.ShowException(E);
end;
procedure TForm1.Button1Click(Sender: TObject);
var aa:string;
ii:integer;
begin
aa:='b';
ii:=strtoint(aa);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
MyExceptionHandle:=TMyExceptionHandle.Create;
Application.OnException := MyExceptionHandle.AppExeption;
end;
end.
5:ado 和bde两者处理错误有区别吗?
请大师细细道 来,200分送上
6:说说错误处理流程啊》