高分请教简单问题：try except 的用法。

[zl1980]

数据库为ACCESS，关键字为人员编号，在导入数据时，如发现该编号已存在，弹出对话框：数据重复导入，是否替换原有记录。部分代码如下：
try
form21.ADOQuery1.Append;
for i:=0 to form21.ADOQuery1.FieldCount-1 do
begin
readln(f1,s);
if s<>'' then
form21.ADOQuery1.Fields[i].AsString:=s;
end;
form21.ADOQuery1.Post;
except
intfig:=messagedlg('该记录已存在，是否替换原有记录',mtconfirmation,[mbyes,mbno,mbcancel],0);
if intfig=mryes then
begin
form21.ADOQuery1.Edit;
for i:=0 to form21.ADOQuery1.FieldCount-1 do
begin
readln(f1,s);
if s<>'' then
form21.ADOQuery1.Fields[i].AsString:=s;
end;
form21.ADOQuery1.Post;
end
else
writeln('其他运行错误');
end;
closefile(f1);
但每次执行时，弹出我给的错误提示后，程序并不往下执行。而是继续弹出系统提示，然后跳出程序。请大家指正一下。

[bbs791109]

在ADOquery1的PostError事件中﹕

procedure TForm1.ADOquery1PostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
Action:=daAbort;
end;

[newsofter]

up

[wangzn1979]

分析一下！
首先判断是否有重复记录！
有： 修改
无： 增加

这些用条件判断就可以解决，
不要用异常来处理条件！

[zlyanyan]

从理论上，靠抛出的异常作为一种条件来处理程序条件，是不可取的 ，异常是指程序出现错误。

[bbs791109]

try
form21.ADOQuery1.Append;
for i:=0 to form21.ADOQuery1.FieldCount-1 do
begin
readln(f1,s);
if s<>'' then
form21.ADOQuery1.Fields[i].AsString:=s;
end;
form21.ADOQuery1.Post;
except
form21.ADOQuery1.cancel; //加上這句吧
intfig:=messagedlg('该记录已存在，是否替换原有记录',mtconfirmation,[mbyes,mbno,mbcancel],0);
if intfig=mryes then
begin
form21.ADOQuery1.Edit;
for i:=0 to form21.ADOQuery1.FieldCount-1 do
begin
readln(f1,s);
if s<>'' then
form21.ADOQuery1.Fields[i].AsString:=s;
end;
form21.ADOQuery1.Post;
end
else
writeln('其他运行错误');
end;
closefile(f1);

[newyu]

来晚了

[zl1980]

不行，except后的语句根本就没有执行。

[firetoucher]

on e:except do

[wangzn1979]

谈谈个人看法：
从异常的角度来说，出问题的时候给出提示，然后就要
退出这部分代码。
而不是象你的这样，在异常之中又处理了这么多事情。

希望大家共同交流，共同进步

[zl1980]

那你觉得我要实现这种功能，还有什麽别的办法。

[hammer_shi]

http://expert.csdn.net/Expert/topic/1905/1905370.xml?temp=.8027765