Intelligente Vorauswahl

[Baeuerle]

Hallo zusammen,

ich habe eine kleine wissenslücke die gestopft werden möchte.

Zum Thema:

Ich habe eine DB mit Namen Index Name

Anton
Friedhelm
Meier
Merk
Müller
Wolle
...

So jetzt soll der Aktive Datensatz gesetzt werden, anhand von einem Suchbergriff.

BSP_1: Suchbegriff "ME" -> Selektion soll auf "Meier" stehen
BSP_2: Suchbegriff "Günter" -> Selektion soll auf "Friedhelm" stehen, da kein Eintrag mit "G"

Mit Locate funktioniert zwar BSP_1 allerding BSP_2 geht nicht!

Habt Ihr Ideen???
Danke.

[marabu]

Hallo.

Delphi-Quellcode:

procedure TDataForm.SearchButtonClick(Sender: TObject);
var
  prefix: String;
begin
  with Table do
  begin
    FindNearest([SearchEdit.Text]);
    prefix := Copy(FieldByName(IndexFieldNames).AsString, 1, Length(SearchEdit.Text));
    if AnsiCompareText(prefix, SearchEdit.Text) > 0 then
      Prior;
  end;
end;

Grüße vom marabu

[Baeuerle]

Danke das ist es :thumb: