Intelligente Vorauswahl

[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