ClientDataSet - Найти далее

[Fox78]

Добрый день!
Использую ClientDataSet, DBGrid, DataSource.

Несколько дней уже пытаюсь сделать поиск в таблице по типу "Найти далее".
Т.е. нашли первое совпадение по ключевому слову, далее необходимо от курсора продолжить поиск по тому же ключевому слову.

Простым перебором строк от начала до конца таблицы и их сравнением с искомым получается очень долгий процесс.

Функция Locate ищет очень быстро, но только первое совпадение, дальше не просматривает таблицу.

MainForm.CDS.Locate('List1','key',[])

Пробовал использовать:

MainForm.CDS.IndexFieldNames:='List1';
MainForm.CDS.EditKey;
MainForm.CDS.FieldByName('List1').AsString := 'key';
 if not MainForm.CDS.GotoKey then ShowMessage('Совпадения не найдено!');

Но результат тот же - ищет до первого совпадения.

Помогите советом, как реализовать поиск по типу "Найти далее"?

[evg_m]

1. убрать все лишнее.
найти (и показать) все нужного образца(вида) и только их.
DataSet .Filter
DataSet. Filtered
DataSet. OnFilterRecord
+F1 +SeeAlso +поиск
для начала достаточно и первых двух.

2. сгруппировать
получить в нужном порядке( чтобы все "подходящие" были друг за дружкой )
и тогда смотреть можно Locate +Next