طريقة برمجة البحث بالفيلتراج بلغة الدالفي :
procedure TClients.edit1Change(Sender: TObject);
begin
IF edit1.GetTextLen<> 0 then
begin
Data.Clients.Filter:='Raison='''+Edit1.Text+'*''';
Data.Clients.Filtered:=true;
end
else
Data.Clients.Filtered:=false;
end;
