Schnellsuche in DB, wie realisieren?

[BBoy]

Ich habe eine Datenbank mit einer Tabelle bei der das Feld Position indiziert ist. Die Tabelle wird in einem DBGrid angezeigt und die Sortierung muss so bestehen bleiben.

Nun möchte ich aber in dieser Tabelle in einem anderen Feld (Name) suchen. Und zwar in dem ich in ein Edit Feld das gesuchte eintippe und immer wenn ich die Eingabetaste drücke soll er ein vorkommen finden und im DBGrid markieren.

Wenn das schon geht wäre gut. Besser wäre wenn nicht nur am Anfang des Feldes gesucht wird, sondern auch Teilstrings innerhalb der Feldes Name. Bei Eingabe von "eier" soll also auch "Meier" gefunden werden.

Kann mir bitte jemand sagen wie ich so etwas realisieren kann?

[DeddyH]

Mir scheint, Du suchst Locate.

[BBoy]

Mit Locate finde ich das erste vorkommen. Und wie soll ich dann das nächste vorkommen des Suchstrings finden?

[DeddyH]

http://www.delphipraxis.net/115965-l...ext-prior.html

[mkinzler]

Aber es gilt trotzdem TurboDB != BDE !

[BBoy]

Das ist mir schon klar :) Irgendwann werde ich wechseln :oops:

Konnte die Schnellsuche realisieren. Da es sich immer nur um 10-40 Datensätze handelt ist diese Methode OK.

Delphi-Quellcode:

procedure TForm2.RzEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
i : Integer;
begin
  if key = vk_return then begin
    if rzedit2.Text <> '' then begin
      datamodule1.TourTable1.DisableControls;
      for i := AktSIndex to datamodule1.TourTable1.RecordCount -1 do begin
        datamodule1.TourTable1.RecordNo := i;
        if pos(trim(lowercase(rzedit2.Text)),lowercase(datamodule1.TourTable1GSName.AsString)) <> 0 then begin
          datamodule1.TourTable1.EnableControls;
          JvDBUltimGrid2.SelectedIndex := datamodule1.TourTable1.RecordNo;
          aktsindex := datamodule1.TourTable1.RecordNo+1;
          exit;
        end
        else begin
          aktsindex := 1;
        end;
      end;
      datamodule1.TourTable1.EnableControls;
    end;
  end;
end;

Noch Verbesserungsvorschläge ?