@MsGuns

Не вдаваясь в обсуждения "оптимальности" поиска..
Фильтрация делается 2-мя способами:

1) Св-во Filter.
В это св-во записывается SQL-выражение условия, например FIO LIKE 'Иванов%' AND VOZRAST BETWEEN 18 AND 22:

Table.Filtered := false;
Table.Filter := 'FIO LIKE ''Иванов%'' AND VOZRAST BETWEEN 18 AND 22';
Table.Filtered := true;

Проверить корректность подставляемого выражения очлегко - для этого дстаточно в любом скл-эксплорере написать
SELECT * FROM TABLE
WHERE <сюда занести ваши условия из Filter>
Если запрос выполнится правильно смело запускайте код на выполнение

2) Событие OnFilterRecord
В обработчике этого события пишете

with DataSet do
Accept = (Copy(AnsiUpperCase(FieldByName('FIO').AsString),1,6)='Иванов') and
((FieldByName('FIO').AsInteger>=18) and (FieldByName('FIO').AsInteger<=22));

Добавлено через 1 минуту
with DataSet do
Accept = (Copy(AnsiUpperCase(FieldByName('FIO').AsString),1,6)='Иванов') and
((FieldByName('VOZRAST').AsInteger>=18) and (FieldByName('FIO').AsInteger<=22));

Добавлено через 46 секунд
with DataSet do
Accept = (Copy(AnsiUpperCase(FieldByName('FIO').AsString),1,6)='Иванов') and
((FieldByName('VOZRAST').AsInteger>=18) and (FieldByName('VOZRAST').AsInteger<=22));



Вернуться к обсуждению:
Несколько ошибок разом. Касательно памяти. Delphi БД

0