不要
try
on except
end
处理
直接让delphi提示"recordindex out of range"变成汉语
try
on except
end
处理
直接让delphi提示"recordindex out of range"变成汉语
解决方案 »
- 关于idHTTP超时问题?
- 关于界面的问题的求答
- 求助组合数算法!!!
- c中的for(i=0,j=0;i<n,j<t;i++,j++)在delphi中是怎样的?
- 怎样能把button画成圆形外观?
- 如何把jpg图片保存到数据库(SQL)
- 求关于Appbar的demo,需有源码,100分!!!!!!
- EPSON LQ300K打印机在WIN2000的驱动没有自定义纸型,如何解决?
- 如何打印某些PDF文件(安全性,打印=不允许)?
- 快来拿分呀!快来拿分呀!快来拿分呀!快来拿分呀!快来拿分呀!
- 关于用TClientDataSet存储任意文件到数据库字段的问题
- WIN2000和WIN98下界面不一致问题
具体点
我没用过,应当加在那个单元?
如果处理啊?
给点简单的代码好吗
Forms;procedure TForm1.OnCreate();
begin
Application.OnException:=YourOwnExceptionFunction;
end;procedure TForm1.YourOwnExceptionFunction(...);
var
Message:String;
begin
Message:=Exception.Message;
if Message='recordindex out of range' then begin
Message:='chinese message';
end;
MessageBox(Handle,PChar(Message),PChar(Application.Title),MB_ICONERROR);
end;大致就是这样吧。