26.08.2015, 19:27
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Ну, дык и ищи руками.
Код:
DBGrid.DataSource.dataSet.Next; // смещаемся с текущей (последней найденной) записи
While Not DBGrid.DataSource.dataSet.EoF Do
Begin
if (...) Then Exit; // Типа, запись найдена
DBGrid.DataSource.dataSet.Next;
If DBGrid.DataSource.dataSet.Eof Then
If MessageDlg('Ничего не нашли, искать с начала?',mtInformation,[mbYes,mbNo],0) = mrYes
Then DBGrid.DataSource.dataSet.First;
End;
PS. только сделай перед началом поиска DisableContols, а при выходе из поиска EnableControls.
|