ОС
Оксана Салистая
Как то так
procedure TForm1.ADOTable1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept := Pos('то_самое_имя', Dataset[ 'ПОЛЕ_С_ИМЕНЕМ' ].AsString) <> 0;
end;
не забываем свойство ADOTable Filtered ставить в True
на самом деле в такой ситуации желательно использовать ADOQuery
если нужна готовая программа пишите мне на почту