Оптимизация фильтрации Adoquery

[sashaslam]

База данных около 100000 записей...
через эдиты делаю поиск записей
процедура
procedure TForm1.ADOQuery1FilterRecord(DataSe t: TDataSet; var Accept: Boolean);
begin
accept:=true;
Accept:=AnsiLowerCase(copy(ADOQuery 1IDKOD.asstring, 1, Length(edit1.Text)))=AnsiLowerCase( edit1.Text);
if (Edit1.Text <> '') and (Accept) then
Accept := AnsiPos(Edit1.Text, ADOQuery1IDKOD.AsString) > 0;
if (Edit7.Text <> '') and (Accept) then
Accept := AnsiPos(Edit7.Text, ADOQuery1ObjName.AsString) > 0;
if (Edit9.Text <> '') and (Accept) then
Accept := AnsiPos(Edit9.Text, ADOQuery1nam.AsString) > 0;
if (Edit11.Text <> '') and (Accept) then
Accept := AnsiPos(Edit11.Text, ADOQuery1fil_kodu.AsString) > 0;
end;
может в чем то ошыбка..... или как оптимизировать фильтрацию..... все работает но грузит и память и процесор на 100

[Serge_Bliznykov]

так и будет..

хотите быстрее - по значениям Edit'ов формируйте SQL запрос и выполняйте его. (кстати, разумным было его повесить на отдельную кнопочку - "Искать")
хотя, ОГРОМНОГО прироста скорости это может и не дать! операция поиска вхождения подстроки в строку в СУБД весьма небыстрая (а ещё и плохо индексируемая движком БД)

СУБД у Вас какая?

[sashaslam]

спс
access

[Serge_Bliznykov]

sashaslam,
да не за что!

а вот и пример.
пользователем задаются два параметра.
Оба значения выбираются в запросе как ВХОЖДЕНИЕ в поле БД...

procedure TForm1.btFindClick(Sender: TObject);
var
 sSQL : string;
begin
 AdoQuery2.Close;
 sSQL := '';
 if edParam1.Text<>'' then
   sSQl := ' ([Код] like '
         +QuotedStr('%'+edParam1.Text+'%')+')';
 if edParam2.Text<>'' then begin
   if length(sSQL)>0 then sSQl := sSQl + ' AND ';
   sSQl := sSQl + ' ([Nomer] like '
         +QuotedStr('%'+edParam2.Text+'%')+')';
 end;
 if length(sSQL)>0 then
   {поиск только нужных записей}
   AdoQuery2.SQL.Text :=
     'SELECT * FROM LIST WHERE '+sSQL
 else
   {если условия не заданы, то все записи берём}
   AdoQuery2.SQL.Text :=
     'SELECT * FROM LIST';
 AdoQuery2.Open;
 laCount.Caption := 'Количество записей: '+
    IntToStr(ADOQuery2.RecordCount);

end;

[sashaslam]

большое спасибо!!!!!!
был занят...
буду исправлять.....