DBR Delphi-Ecke

// Hiermit kann man mittels der Eingabe in einem TEdit die angezeigten
// Datensätze (z.B. in einem DBGrid) filtern.
// Bei jedem Tastendruck werden nur die Sätze angezeigt, die mit der aktuellen
// Eingabe übereinstimmen. Mit dem Wert von ignorieren kann man steuern, dass
// Groß- und Kleinschreibung entweder ignoriert oder beachtet wird.
// Das Beispiel nutzt das Feld "Name".
// Löscht man den Text im TEdit, werden wieder alle Sätze angezeigt.

// Getestet mit D4 unter WinME

uses db; 
 
const ignorieren: boolean = false; 
 
procedure TForm1.Edit1Change(Sender: TObject); 
var select: string; 
begin 
  if edit1.text = '' then begin 
    table1.filtered := false; 
    exit; 
  end; 
  select := 'Name=' + chr(39) + edit1.text + '*' + chr(39); 
  table1.filter := select; 
  if ignorieren then 
    table1.filteroptions := [foCaseInsensitive] 
  else 
    table1.filteroptions := []; 
  table1.filtered := true; 
end;