怎可以delphi不

begin

with query2 do
begin

close;
ParamByName('partnum').AsString := epartnum.Text;
// query2.ExecSQL;
try
execsql;
except
on E:Exception do if (E.Message='Key violation') then
showmessage('my message');
end;
open;

end


end;


我是的,不execsql是'Key violation'.我希望不要.不要用看到介面


[解决办法]
except块可以这样写：
try
...
except
on e:exception do
showmessage('my message');
end;
试试看。
[解决办法]
TRY..EXCEPT可以的
注意Debug照样提示的,单独RUN EXE就好
[解决办法]
try
except
;
end;
[解决办法]
try
except
;
end;
[解决办法]
调试的时候还是会报错的，这个是在运行时不报错。
[解决办法]
教一个狠一点的方法，可以让你的Delphi程序不会弹出异常框

procedure TForm1.KillAllException(Sender: TObject;E: Exception);
begin
//这里面随便你写什么，一般是将异常信息记录下来
end;

Application.OnException:=Form1.KillAllException;
[解决办法]
excepttry
...
except
on e:exception do
showmessage( 'my message ');
end;

只有在程序执行的时候不会报错。调试的时候还是有错误提示的
[解决办法]
try
except
;
end;