[gebs]

Сообщение от lmikle

Windaws, это фильтрация.
Если поиск, то нужно либо пользовать Locate, либо руками по источнику данных и проверять:

Код:

procedure TForm1.Findrecord(AFieldName, AFieldValue : String; AReset : Boolean);
begion
  ADOQuery1.DisableControls; // Не помню, может надо у TDataSource вызывать.
  Try
     If AReset Then ADOQuery1.First Else ADOQuery1.Next;
      While Not ADOQuery1.EOF Do
         Begin
           If ADOQuery1.FieldByName(AFieldName).AsString = AFieldValue 
             Then Exit;
           ADOQuery1.Next;
         End;
     ShowMessage('Ничего не найдено...');
  Finally
    ADOQuery1.EnableControls;
  End;
end;

Код только на точное сравнение и не разбирает типы данных - это только пример.

Задам Вам втсречный вопрос, сейчас нет под рукой делфи, а как сделать поиск по всем полям? Указать '' или оставить полне пустным вместо "Название" ?