ForestK的公用模块

Delphi 版的IIF函数不少编程语言都有 IIF 函数，我们也可以构造自己的IIF函数：// ------------------------------------------------------------------------// 格式：IIF( lExp,  vExp1,  vExp2 )// 参数：//  lExp  : 逻辑表达式// vExp1, vExp2 : 将返回的值

ADO Command 命令的执行下面的函数实现 Ado Command 命令的执行。// --------------------------------------------------------------------------------// 参数：//   pAdoCmd: TADOCOMMAND;   AdoCommand 组件//   pcExec : string; 

//--------------------------------------------------------------------------------// 功能：返回表字段在 DBGrid 列中的序号，首序号为0// 参数： pDbGrid:TDbGrid;        DBGrid//               pcFieldName : string    数据表字段名，字段

//--------------------------------------------------------------------------------// 功能：将 DbGrid 当前列定位到某字段上。// 参数： pDbGrid:TDbGrid;        DBGrid//              pcFieldName : string    数据表字段名，字段名不区分大小

//--------------------------------------------------------------------------------// 功能：将指定分隔符分隔的字符串转换为字符串列表。//             此函数在需要将// 参数： //             pcString : string; 字符串//             pcChar   :