关于 cxGrid 的 filter 中，like 包含条件的改造

cxGrid原控件条件like 仅是在右边加了 % ,达不到我们常用的 模糊包含 的功能；
现改造 cxLike.pas 里面的 LikeStr 函数，使之达到模糊包含的功能；
把这个文件复制到你的程序目录
或者将以下函数 改造控件安装目录下 如 \DevExpress VCL\ExpressDataController\Sources\cxLike.pas
的同名函数；
改动完成后, 所有使用该文件做过滤的, like, not like 都会受影响
无论是在 filterRow 或者弹出的过滤编辑器中 都适用;

function LikeStr(const AStr, APatternStr: string; APercent, AUnderline: Char): Boolean;
var
   vPatternStr: String;
begin
   vPatternStr := trim(stringreplace(APatternStr,'%','',[rfReplaceAll]));
   if Length(vPatternStr)>0 then
   begin
     if vPatternStr[1] <> '%' then
        vPatternStr := '%' + vPatternStr;

     if vPatternStr[Length(vPatternStr)] <> '%' then
        vPatternStr := vPatternStr + '%';
   end;
   Result := Like(PChar(AStr), Length(AStr), PChar(vPatternStr),
     Length(vPatternStr), APercent, AUnderline, #0);
end;