明细化ADO的错误处理

function TForm1.handleErr(cn: TADOConnection): string;
var
  s:string;
  i:integer;
begin
  s:='';
  for i:=0 to cn.Errors.Count-1 do
  begin
    case cn.Errors[i].NativeError of
      945:
        s:=s + '内存或磁盘不足';
      4850:
        s:=s + '其他用户锁定该数据表';
      2627:
        s:= s + '主键或唯一索引重复';
      7303:
        s:=s + '网络初始化失败，请检查网络连接是否正常';
      10024:
        s:=s + '网络连接超时，请检查网络设置';

      1222:

        s:=s + '锁申请超时';

      1205:

         s:=s+'事务牺牲回退';
      547:
        s:=s + '主从表间存在外键关系，操作失败'
      else
        s:= s +  '未知错误';
    end;//end case
  end;//end with
  result:=s;
end;