есть такой кусок кода
tSpis - TTable
sField: string;

Код

while not tSpis.Eof do    For i:=2 to 5 do begin//iiey      sField:=Copy(tSpis.Fields[i].Name,6,Length(tSpis.Fields[i].Name));      if (sField <> 'ReadMe') or//по этим полям искать ненадо         (sField <> 'IsFolder') or//т.к. это служебные поля         (sField <> 'NoDisk') or         (sField <> 'MainID') or         (sField <> 'ID') then        if POS(AnsiUpperCase(edFindText.Text),AnsiUpperCase(tSpis.Fields[i].AsString))<>0 then      exit;    end;//For i:=2 to 5 do begin//iiey    tSpis.Next; -?  end;//while

в таблице есть еще 4 поля, по корым нужно вести поиск.

Locate не предлагать, это не интересно...(слабо ищет)
к стати в DRKB не нашел.

Интересно, к чему такой гемморой. чем тебе

Код

Locate('Company;Contact;Phone', VarArrayOf(['Sight Diver', 'P', '408-431-1000']), [loPartialKey]);

не нравиться? Нормально он ищет. А если поля не индексированные, то только им.

Ну или делай SQL запрос.

вопрос следующий: в столбце есть запись "Игры для DOS"

Так вот мне нужно искать не "игры", а "DOS".

И неужели метод Locate сможет найти что-то в середине или в конце строки?

Locate не сможет. А называется такая штука "контекстный поиск". Это большая и сложная задача, над которой бьются многие математики. Можешь поискать алгоритмы в инете.

Процедура поиска по всем полям
Допер наконец-то

Код

Procedure FindRec(What,Mes:String;DS:TDataSet;sFields:array of String;                             foFromBegin,foCaseSansitive,ShowMes:Boolean); { What            - строка для поиска (editFind.Text) DS              - таблица (TTable,TQuery и т.д.) Fields          - список полей, по которым нужно вести поиск (['Field1','Field3','Field7']) foFromBegin     - поиск от начала таблицы (true - от начала или False от текущей записи) foCaseSansitive - поиск с зависимостью от регистра символов (true - зависит от регистра или False не зависит от регистра) }   Function FieldInFields(_Field:String;_Fields:array of String):Boolean;//   Var    x:byte;   begin//содержиться ли текущее поле в масива полей, предназначенных для поиска     Result:=False;     For x:=Low(_Fields) to High(_Fields) do       if _Field = _Fields[x] then begin         result:=true;         exit;       end;//if   end;//func Var i,q,f,w:integer; begin ds.DisableControls;//для ускорения отключаем таблицу w:=ds.RecNo; try   //если поиск сначала таблицы     if foFromBegin then q:=0 else q:=ds.RecNo;   //идем по всем записям     For i:=q to ds.RecordCount-1 do begin   //пробег по всем полям       For f:=0 to ds.FieldCount-1 do begin   //если текущее поле содержится в массиве полей, предназначенных для поиска         if FieldInFields(ds.Fields[f].FieldName,sFields) then begin   //проверка на регистр           if (foCaseSansitive = True) AND (POS(What,ds.Fields[f].AsString)<>0) then exit;           if (foCaseSansitive = False) AND (POS(AnsiUpperCase(What),AnsiUpperCase(ds.Fields[f].AsString))<>0) then exit;         end;//if FieldInFields(ds.Fields[f].FieldName,sField) then begin       end;//For f:=0 to ds.FieldCount-1 do begin       ds.Next;     end;//For i:=q to ds.RecordCount-1 do begin     ds.RecNo:=w;     if ShowMes then ShowMessage(mes); finally   ds.EnableControls;//даже если произойдет исключение, то таблицу надо включить end;//try-finally end;//proc

Пример использования

Код

FindRec(edFindText.Text,'',dm.tSpis,['Dirname','Type','PathName','Prim'],False,cbRegister.Checked,False);

да, по сравнению с локейтом - будем просто летать

у тебя не на всех СУБД и не на всех версиях дельфей этот код будет работать. (из-за использования RecNo).

лечге организовать поиск черрез стандартный запрос с испольщованием конструкции LIKE в where-clause.

Да, в таком случае не парься, и используй SQL запрос.

Так RecNo можно и не использовать.

Цитата

да, по сравнению с локейтом - будем просто летать

Если это не шутка, то почему, мне кажеться Locate будет искать быстрее. Странно, почему разработчики Delphi, не придумали такой метод поиска?

dsergey, сорри, это была именно шютка. Locate будет, по возможности, цеплять индексы, твой код будет делать тупой перебор - есс-но, для индексированных таблиц твой вариант будет работать медленее.

гадать, о чём думали разработчики багланда сложно. скорее всего, просто не захотели заморачиваться, ибо на уровне SQL запроса соответствующий механизм предусмотрен. А SQL можно прикрутить практически ко всему, единственный, известный мне случай, когда SQL не применим в принципе, это использование TClientDataSet'ов. Но они и не предназначены для таких задач.