Suchfunktion in einem DBGrid

[nahpets]

Suchst Du sowas in der Art?

Delphi-Quellcode:

procedure Tform1.ButtonSuchmalwasClick(Sender: TObject);
var
  sSuchbegriff : String;
begin
  // Wenn es eine separate Eingabe sein soll:
  sSuchbegriff := InputBox('Nach Namen suchen','zu suchender Name:','');
  if sSuchbegriff <> '' then begin
    tabelle.Locate('Name',sSuchbegriff,[loCaseInsensitive,loPartialKey]);
  end;
end;

procedure Tform1.ButtonSuchmalwasClick(Sender: TObject);
begin
  // Suchen, was im Editfeld steht:
  if Editfeld.Text <> '' then begin
    tabelle.Locate('Name',Editfeld.Text,[loCaseInsensitive,loPartialKey]);
  end;
end;

procedure Tform1.ButtonSuchmalwasClick(Sender: TObject);
begin
  // Nur die Sätze anzeigen, bei denen der Name mit der Eingabe im Editfeld übereinstimmt.
  tabelle.Filtered     := False;
  tabelle.Filter       := Format('Name = %s ',[QuotedStr(Editfeld.Text]);
  tabelle.Filtered     := True;
end;

oder eher eine neue Abfrage für die Datenbank?

Delphi-Quellcode:

procedure Tform1.ButtonSuchmalwasClick(Sender: TObject);
begin
  qry.Close;
  qry.SQL.Text := Format('select * from Tabelle where name like %s',[QuotedStr(Editfeld.text]);
  qry.Open;
end;