Code source Delphi Filtrage / Recherche

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text<>'' then
begin
   DataModule2.ADOTable1.Filter := 'Nom like '+QuotedStr(Edit1.Text+'*');
   DataModule2.ADOTable1.Filtered := true;
end else
begin
   DataModule2.ADOTable1.Filtered := false;
end;
end;

end.

Exemple02:

begin

if RadioButton1.Checked then  if not Table1.Locate('nom',edit1.text,[])
then
showmessage('non trover')  ;

if RadioButton2.Checked then if not Table1.Locate('Prenom',edit1.text,[])
then
showmessage('non trover');
end;