[lmn]

Доброго времени суток!
Вот это взял с Вашего форума (ссылка: "http://www.delphisources.ru/forum/showthread.php?t=13110") указваю ссылку т.к. тема закрыта. Всё компилится, но работает не так хорошо.

Код:

procedure TForm1.Button7Click(Sender: TObject);
begin
  If not DBGrid1.DataSource.DataSet.Locate('Имя', Edit1.Text, [])
  then ShowMessage('ТаLкой записи в Базе Данных Нет!');
end;

Я решил добавить сюда loPartialKey для более удобного поиска и получил следующее:

procedure TForm1.Button7Click(Sender: TObject);
begin
  If not DBGrid1.DataSource.DataSet.Locate('Имя', Edit1.Text, [loPartialKey])
  then ShowMessage('Такой записи в Базе Данных Нет!');
end;

Админ: Пользуемся тегами при оформлении кода!

Но у меня остался не решенным вопрос в продолжение темы. А вопрос такой: При нахождении одинаковых записей в БД и повторном нажатии кнопки "Поиск", поиск не продолжается. То есть, если много записей с одинаковым именем, то при нажатии на кнопку "Поиск" повторно, курсор остаётся на первой найденной записи. Ещё поиск из данного примера ищет не по всему полю. Если кто сталкивался с подобными проблемами и решил их, то пожалуйста помогите. За ранее Благодарен!