Поиск по DataSet (Delphi)

[Alexbmgn]

Здравствуйте, подскажите кто в состоянии, почему мой код не выполняет поиск по всем значениям столбца 'family' DataSet-a, в файле при помощи функции 'pos' ?

procedure TForm2.Button2Click(Sender: TObject);
Var f:TextFile;
st,st2:String;
st1,i:integer;
sl1:string;
begin
AssignFile(f,'E:\3_курс\клиент\1.txt');

Reset(f);

  While not EOF(f) do
   begin

   ReadLn(f,st);

    while not DBGrid1.DataSource.DataSet.Eof do

     begin
     sl1:=dBGrid1.DataSource.DataSet.fieldbyname('family').AsString;

      st1:=pos(sl1,st);
      if st1>0 then
       begin
       st2:=copy(st,st1,12);
       memo1.lines.add(st2);
       ShowMessage(st2);
       end;
   DBGrid1.DataSource.DataSet.next;
   end;

end;
CloseFile(f);
end;

Я просто в недоумении

[Аватар]

А кто будет указатель записи на начало устанавливать в датасете перед

while not DBGrid1.DataSource.DataSet.Eof do

[Alexbmgn]

DBGrid1.DataSource.DataSet.First;

я так понял?

Однако все равно не выводит сходные фамилии.. в переменной 'sl1' он четко записывает по порядочку все значения столба 'family', а вот дальше что не так с поиском и отображением происходит не могу проследить и понять...

[Alexbmgn]

Хотя постой-ка дружище.. поиск он производит.. сейчас поковыряюсь попробую понять что к чему и верно ли он это делает

[evg_m]

pos('и', 'Иванов')=0

[Alexbmgn]

Послушай Аватар.. спасибо тебе конечно огромедное просто, все функционирует... вы знаете я лишь один вопрос хотел бы задать всем: поиск он проводит, постоянно отображая в моем DBgrid-e это беганье по строкам столбца... и самое главное-поиск проходит ужасно долго ( у меня в БД около 2000 записей и в файле около 2400 строк) это нормально ли или просто мой алгоритм поиска просто настолько ужасен ??

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

pos('и', 'Иванов')=0

Хотите сказать, что в данном случае важен регистр? впрочем если оно и так, то у меня подразумевается поиск по слову, написаному как в БД так и в файле индентично относительно регистра..

Сообщение от Аватар

А кто будет указатель записи на начало устанавливать в датасете перед

Спасибо тебе конечно огромедное просто, все функционирует... вы знаете я лишь один вопрос хотел бы задать всем: поиск он проводит, постоянно отображая в моем DBgrid-e это беганье по строкам столбца... и самое главное-поиск проходит ужасно долго ( у меня в БД около 2000 записей и в файле около 2400 строк) это нормально ли или просто мой алгоритм поиска просто настолько ужасен ??

[Аватар]

это беганье по строкам столбца

Перед поиском DataSource.Enable в False, после поиска в True. Бегать не будет и ускорится. Но все равно такой поиск это говнокод. Не знаю какая СУБД, но загнал бы список в таблицу и все это реализовал бы запросом. Некоторые СУБД и с текстовым файлом могут работать как с таблицей, тогда еще проще - не нужно список загонять в таблицу, а на прямую сделать все запросом

[Alexbmgn]

Сообщение от Аватар

Перед поиском DataSource.Enable в False, после поиска в True. Бегать не будет и ускорится. Но все равно такой поиск это говнокод. Не знаю какая СУБД, но загнал бы список в таблицу и все это реализовал бы запросом. Некоторые СУБД и с текстовым файлом могут работать как с таблицей, тогда еще проще - не нужно список загонять в таблицу, а на прямую сделать все запросом

Имеешь ввиду, что занес бы данные из тхт файла в таблицу и выполнял бы поиск запросом к БД? Но мне необходимо в данном случае производить это именно с тхт файлом и я так понимаю в таком случае скорость поиска мне кардинально не увеличить

[eval]

DisableControls/EnableControls

[Alexbmgn]

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

DisableControls/EnableControls

Спасибо, но кардинального прироста скорости конечно же нет :\ при имеющемся тхт и беганья по нему данных из моей БД ничего не поменять кардинально да ?