EhLib 4.1 在 Delphi 2007 下无法过滤和排序的问题 大 | 中 | 小

  在Delphi2007下安装了最新的EhLib v4.2.6，发现 DBGridEh 无法进行排序和过滤，执行操作时无反应。后来发现，如果选择本地过滤和排序的话，一切都会正常；如果是服务器端排序和过滤，则无法正常执行，错误信息为类型转换错误。

跟踪EhLib代码发现，是DBUtilsEh.pas文件中的SetDataSetSQLLikeProp 和IsDataSetHaveSQLLikeProp 函数中的以下相关代码报错：

…… if (TObject(GetOrdProp(DataSet, FPropInfo)) as TStrings) <> nil then SQLPropValue := (TObject(GetOrdProp(DataSet, FPropInfo)) as TStrings).Text ……
具体的类型转换错误是指TObject与TStrings转换错误，所以报错。
我用的是ADOQuery，其SQL属性在Delphi7下是TStrings类型，在Delphi2007下是TWideStrings，由TObject转换为TStrings按理说不应该转换不成功啊。

继续查看代码才发现：
TWideStrings没有继承自TStrings，而是继承自TPersistent，理论上跟TStrings没有关系，将他转换为TStrings，当然会报错了。

找到原因后，将EhLib相关出错函数的代码改为以下：

…… if TObject(GetOrdProp(DataSet, FPropInfo)) is TStrings then SQLPropValue := (TObject(GetOrdProp(DataSet, FPropInfo)) as TStrings).Text else if TObject(GetOrdProp(DataSet, FPropInfo)) is TWideStrings then SQLPropValue := (TObject(GetOrdProp(DataSet, FPropInfo)) as TWideStrings).Text else Exit; ……

修改后，重新编译，一切正常。

附：如果在Delphi2007中安装EhLib4.X时报错，那么注释掉EhLibVCL.pas文件中的“TBytes = array of Byte”行即可正常安装了（因为在Delphi2007中CodeGear自己定义了TBytes类型）。