Hallo,
eine schnelle und unkomplizierte Lösung ohne TQuery wäre folgende:
Delphi-Quellcode:
PROCEDURE TForm1.Edit1KeyUp(Sender: TObject; VAR Key: Word;
Shift: TShiftState);
BEGIN
// Nach Enter wird gefiltert
IF Key = vk_Return THEN
BEGIN
// Wenn Edit1.Text nicht leer ist
IF Edit1.Text <> '' THEN
BEGIN
// Gefiltert wird z.B. Alias "DBDEMOS" Tabelle "clients.dbf" Feld "LAST_NAME"
Table1.Filter := 'LAST_NAME =' + QuotedStr(Edit1.Text + '*');
Table1.Filtered := True;
END
ELSE
// Wenn Edit1.Text leer ist alle Datensätze zeigen
Table1.Filtered := False;
END;
END;
Zum Ignorieren der Groß/Kleinschreibung kannst Du
Table1.FilterOptions := [foCaseInsensitive];
setzen