恐怕没有这么细腻
on E:EDatabaseError do 
 showmessage(E.Message);

解决方案 »

  1.   

    恐怕没有这么细腻
     On E:EDatabaseError do
      showmessage(E.Message);
      

  2.   

    On E:EDatabaseError do是捕捉不到这个错误的。
    不过我不明白楼主,你一定要知道这个错误吗?
    直接:
    try
      .Open;
    except
      ShowMessage('服务器名错误!');//这里一般只有这个错误阿!
    end;—————————————————————————————————
    MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
                 毁誉由人,望天上云卷云舒,聚散任风。';
    if Not Assigned(I) then
      I := TI.Create(Nil);
    I.Maxim := MaximStr;
    I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
    I.Desire := '加不加分随你';
    —————————————————————————————————