[nikcpp]

Народ подскажите как сделать круговой поиск по столбцу в DBGrid.
Метод Locate не подходит так как он ищет только первую подходящую запись, а поиск нужно продолжать дальше.

[lmikle]

Ну, дык и ищи руками.

Код:

1 2 3 4 5 6 7 8 9 10

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.