怎么在程序运行的时候出现和DELPHI下一样的调试信息？？？

Question

这个是远程连接SQL，只需要输入IP和SQL用户和密码就可以连接，但不管是IP错误还是用户或者密码错误程序的SHOWMESSAGE都只是一样的信息“Access wiolation at address 0048996E in module...... ”    
    
代码：
    try
      ADOConnection1.Connected := True;
    except
        showmessage(E.Message);
    end;
怎么才能SHOWMESSAGE我需要的信息，因为在DELPHI下IP错误和用户或者密码错返回的提示是不一样的，我需要根据信息来分别处理！

Answer 1

showmessage(E.Message)当然是显示系统异常信息. 你自定义你自己的异常信息.如 EIPException = Exception
   EPassException = Exceptiontry
  ....
except
 E1: on EIPException Showmessage('IP错误')
 E2: On EPassException Showmessage('密码错误错误')

Answer 2

try
  ....
except
  on E1: EIPException DO Showmessage('IP错误')
  On E2: EPassException DO Showmessage('密码错误错误')
END;