Schnellsuche in DB, wie realisieren?

[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

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 ?