如何在delphi中取得由数据库存储过程返回的错误信息？

Question

在sql server数据库中的存储过程，使用一下语句返回错误信息
 raiserror('操作失败，请检查！',16,-1)
本来以为系统为自动显示该错误信息，调试后发现并没显示，请问如何
使delphi调用该存储过程后如果执行上面的语句，显示相应的错误提示信息?

Answer 1

应该会返回错误信息的，Delphi的异常机制会捕捉到数据库引发的错误，你试试raiserror('操作失败，请检查！',16,1)吧

Answer 2

uses ...adodb,comobj;
......
except
    on E:Eoleexception do
       MessageDlg('错误:'+E.Message,
                   mtwarning,[mbOK],0);
    else
       showmessage('error');
   end;

Answer 3

E.Message显示如下：
Gerneral Sql Error
[Mircosoft][OBDBc sql server dirver][操作失败，请检查！]
我现在只需要显示后面的文本，前面的不显示，该如何处理？