CxGrid'de Runtime Filtreleme (Çözüldü)

[adelphiforumz]

biraz geç gördüm cevap yazana kadar siz halletmişşiniz.

Bu da benim yoğurt yiyişim 

type
 TypeFilter = (FilterPasif=0, FilterAktif=1, FilterSave=3, FilterLoad=4);
...

...

type TGridFilterRec = Record
   sColName:TcxGridDBColumn;
   foKosul:TcxFilterOperatorKind;
   vValue:Variant;
   vDisplayValue:Variant;
   fbokVarmi : Boolean;
   fbokBoolOperatorKind : TcxFilterBoolOperatorKind;
end;

...
...

procedure pr_FiltercxGrid(_FilterIslemi:TypeFilter; _GridDBView:TcxGridDBTableView; const _FilterRec:array of TGridFilterRec);
var
 AItemList: TcxFilterCriteriaItemList;
 I : Integer;
begin
 with _GridDBView.DataController.Filter do
 begin
   BeginUpdate;
   try
     Root.Clear;
     if _FilterIslemi = FilterAktif then
     begin
         for I := 0 to High(_FilterRec) do
         begin
             if _FilterRec[I].fbokVarmi = True then
                 Root.BoolOperatorKind := _FilterRec[I].fbokBoolOperatorKind;
             if  _FilterRec[I].vDisplayValue <> null then  
                 Root.AddItem(_FilterRec[I].sColName, _FilterRec[I].foKosul, _FilterRec[I].vValue, _FilterRec[I].vDisplayValue)
             else
                 Root.AddItem(_FilterRec[I].sColName, _FilterRec[I].foKosul, _FilterRec[I].vValue, VarToStr(_FilterRec[I].vValue));
         end;
     end;
   except on E: Exception do
     begin
       prc_LogToFile('Application Err : pr_FiltercxGrid (EntityFunctions) ->  Form Adı ' + Screen.ActiveForm.Name + ' -- ' + 'HataSinifi : ' + E.ClassName + ' -- HataMesaji : ' + E.Message, 1, 1);
     end;
   End;
   EndUpdate;
   Active := True;
 end;
end;
...

...

...

procedure TForm1.btnXClick(Sender: TObject);

var
 _FilterRec : array of TGridFilterRec;
begin

         SetLength(_FilterRec, 1);
         _FilterRec[0].sColName := 'XXXXX';
         _FilterRec[0].foKosul  := foLike;
         _FilterRec[0].vValue   := ViewListe.DataController.Filter.PercentWildcard + sEdtArama.Text + ViewListe.DataController.Filter.PercentWildcard;
         _FilterRec[0].vDisplayValue := ViewListe.DataController.Filter.PercentWildcard + sEdtArama.Text + ViewListe.DataController.Filter.PercentWildcard;
         _FilterRec[0].fbokVarmi := False;

           pr_FiltercxGrid(FilterAktif, ViewListe, _FilterRec);

.... yada
           pr_FiltercxGrid(FilterPasif, ViewListe, []);

end;