对AdvStringGrid任意列筛选过滤

{对AdvStringGrid任意列筛选过滤


过滤条件：
  大于任意值:'>100'
  不小于任意值:'>=100'
  等于任意值:'=100'
  介于两数之间：'10,100'//两个数之间
  等于某字符:'=某字符'
  包含某字符:'*某字符*'
  不包含某字符:'<>*某字符*'
  开始字符:'始*'
  结尾字符:'*尾'
}

procedure AdvGridFilter(AdvGrid:TAdvStringGrid;iCol:integer;conStr:string;Fun:boolean);
var
  ip:integer;
  con1,con2:string;
begin//自动筛选
  conStr:=trim(conStr);
  if Fun then begin//按条件对某列过滤
     with AdvGrid do begin//筛选
       Filter.Clear;
       Filteractive:=False;
       ip:=pos(',',conStr);
       if ip=0 then begin//单个过滤条件
         with filter.add do begin
           condition:=conStr;
           column:=iCol;