ZEOS 7.2.4 Filter error
Posted: 11.09.2019, 15:48
I am using that to filter :
I can't filter the last character .
And when the cell contains one char then it does not filter at all.
thanks for your help.
Code: Select all
procedure TNGrid.EditChange(Sender: TObject);
Var
En_tete : string; //header name
begin
if (Col <> Null) and (Col >= CFix) then
En_tete := MyDataset.Fields[Col-1].DisplayName;
if NOT (TEdit(Sender).Text = '') then
begin
MyDataset.Filtered:= false;
MyDataset.Filter:= En_tete+' like ''*'+TEdit(Sender).Text+'*''';
MyDataset.Filtered:= true;
end
else
begin
MyDataset.Filtered:= false;
MyDataset.Filter:='';
end;
Filter2();
end;
And when the cell contains one char then it does not filter at all.

thanks for your help.