汉化一个错误提示:"recordindex out of range" 怎么解决

Question

不要
try
on except
end
处理
直接让delphi提示"recordindex out of range"变成汉语

Answer 1

处理VCL源码，复杂而且不实际！http://lysoft.7u7.net

Answer 2

知道哪里个unit里的吗?
具体点

Answer 3

还是推荐用try except，可以重写TApplication.OnException事件，然后判断如果得到的文字为："recordindex out of range"，就转成中文后，再调用MessageBox将其显示出来。

Answer 4

TApplication.OnException
我没用过,应当加在那个单元?
如果处理啊?  
给点简单的代码好吗

Answer 5

uses
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;大致就是这样吧。