怎麼可以讓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;
