Suche in einer Access Datenbank mit Delphi

[shmia]

Du könntest ein Volltext Filter einbauen.
Die Funktion CompareWildText findest du hier:
http://www.delphipraxis.net/internal...ct.php?t=21980

Delphi-Quellcode:

procedure TForm1.DoFilterRecord(DataSet: TDataSet;var Accept: Boolean);
var
   i : Integer;
   fields : TFields;
begin
   fields := dataset.Fields;
   for i := 0 to fields.Count-1 do
   begin
      if CompareWildText(DeinSuchTextString, fields[i].Text) then
      begin
         Accept := True;
         Exit;
      end;
   end;
   Accept := False;
end;

Jetzt musst du den Filter nur noch scharfmachen:

Delphi-Quellcode:

DeinSuchTextString := '*SEX*';
ADOQuery1.OnFilterRecord := self.DoFilterRecord;
ADOQuery1.Filtered := True;