错误处理方法

1. format
  
   AErrorReason:=Format('%s(%s)',[ACommData.GetReson, ACommData.GetResult]);

ACommData.GetReson, ACommData.GetResult,AErrorReason都是为string;

2.assert

   assert( AParamRows >= 1, '查询参数的行数不能少于0!' );

检测表达式是否存在。

3.CreateFmt用法

   原型：   (CreateFmt(const Msg: string; const Args: array of const))

     raise EBA_CommQuery.CreateFmt(S_UnknowTableID, [ATblID]);

 

..........