各位好漢！我是初學，請幫幫忙。

Question

不知道哪裡有這樣的文章啊！
　　　　如何截取delphi的錯誤。和如何得知這些錯誤的代碼從而提前做出判斷啊。
50分奉上。分不多，但是一番心意。

Answer 1

function DivTwicePlusOne(a, b : integer) : integer;
begin
  try
     //error if B equals 0
     result := a div b;     //do something else.... skip if exception is raised.
     result := result div b;
     result := result + 1;
   except
     on EDivByZero do
     begin
       result := 0;
       messageDlg('Divide by zero corrected.', mtError, [mbOK], 0);
     end;
     on e : exception do
     begin
       result := 0;
       messageDlg(e.message, mtError, [mbOK], 0);
     end;
   end; //end except
end;
    这个函数应该能给你一点提示！

Answer 2

這個我知道。。
我是說它的錯誤代碼，比如它除0的時候會發生錯誤 EDivByZero 。那如果是別的錯誤又是什麼呢。
我想要這種錯誤代碼表。
還有一個問題，我用QUERY，和DataSource1，dbgrid控件寫的程序，為什麼在dbgrid控件當中無法
修改DBGRID的值啊。
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from bjd');
query1.Open;
dbgrid控件無法響應就好像是只讀一樣了但我沒有設只讀啊。

Answer 3

try
    strtoint('d');
  except
   on E:Exception  do
   showmessage(E.ClassName);//你要的代码  end;

Answer 4

错误代码表，没用过，无能为力。至于那个TQuery，试着把它的RequestLive属性改为true。

Answer 5

错误代码都在delphi help中，search一下 error code！