当对数据库进行录入的时候,怎么捕捉到自己声明的错误类型???UP 有分!

Question

n:integer;
为了表示是哪行代码出现错误!

Answer 1

Tblobfield(fields[workid+6]).loadfromfile(picpath);这句如果出错了，则后面的
if n=1 then exit
else if n=2 then Raise Ebadappend.Create('cuowu!');
就不会执行了！
delphi会直接转到except后的语句执行！

Answer 2

试试！
begin
openquery('select * from workonoff',true);
workid:=strtoint(edit2.text);
try
with query1 do
begin
append;
fields[0].asstring:=Edit1.text;
fields[1].asdatetime:=date;
try
Tblobfield(fields[workid+6]).loadfromfile(picpath);
except
  Raise Ebadappend.Create('图片导入错误');
end;
post;
end;
except
on E:Ebadappend do
showmessage(e.message);
on E:Exception do
showmessage(e.message);
end;
//showmessage('cuowu');
query1.close;
end;