Поиск по столбцу в таблице БД

[Dux]

Есть таблица. Необходимо организовать поиск записи по столбцу "Surname", причем если если фамилии повторяются, то при каждом последующем клике - продолжать поиск дальше.

Вариант с SQL-запросом не подходит, т.к. все записи должны быть видны, просто должен передвигаться курсор к найденной записи.

Как это лучше реализовать? Пробую способом ниже, находит только первое вхождение, а есть еще несколько записей с той же фамилией.

     if DataModule.FDQuery1.Locate('Surname', Edit1.Text, [loCaseInsensitive,
     loPartialKey]) then
     begin
       break;
     end;

[Dvoishnik]

поля отсортированный по данному столбцу??

[Dux]

Сообщение от Dvoishnik

поля отсортированный по данному столбцу??

А причем тут сортировка?

[Dvoishnik]

ну вы хотите поиск на кнопку повесить и тыкать ее если значений несколько кнопка должна опускать в низ указатель так?? если они отсортированны можно это сделать NEXT

[Dux]

Сообщение от Dvoishnik

ну вы хотите поиск на кнопку повесить и тыкать ее если значений несколько кнопка должна опускать в низ указатель так?? если они отсортированны можно это сделать NEXT

если не затруднить сбросьте примерчик кода такого поиска?

[Dvoishnik]

procedure TForm1.Edit1Change(Sender: TObject);
begin
flag:=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
if flag then
  begin
  if ADOTable1.Locate('name', Edit1.Text, [loCaseInsensitive,
     loPartialKey]) then
       flag:=false;
  end
   else
    Begin
     s:= ADOTable1name.Value;
     ADOTable1.Next;
     if s <> ADOTable1name.Value then ADOTable1.Prior;
    end;
end;

[Dux]

Спасибо. Не совсем понятно что значит ADOTable1name.Value;

[Dvoishnik]

один из способов обратиться к полю.
синоним

ADOTable1.FieldByName('name').Value;

[Аватар]

Если не сортировано следующую искать перебором в цикле начиная со следующей за текущей и пока не найдется или eof. И методы компонента посмотреть, может там есть что-нибудь в духе FindNext или наподобие

[Dux]

if flag then
  begin
  if DataModule.FDQuery1.Locate('Full_name', Edit1.Text, [loCaseInsensitive,
     loPartialKey]) then
       flag:=false;
  end
   else
    begin
     s:= DataModule.FDQuery1.FieldByName('Full_name').Value;
     DataModule.FDQuery1.Next;
     if s <> DataModule.FDQuery1.FieldByName('Full_name').Value then DataModule.FDQuery1.Prior;
    end;

Сделал как Вы написали. Находит только первое вхождение. Если нажать еще раз - ничего не происходит.