Delphi: Поиск слова в нескольких текстовых файлах.

[Parnischa55]

Здравствуйте уважаемые форумчане.
Помогите пожалуйста решить одну задачу.

Есть несколько текстовых файлов. Нужно найти слово введенное в Edit. В случае нахождения этого слова в файле указать путь к этому файлу.

Я конечно понимаю что на форму нужно кинуть компоненты: Memo (или RichEdit), Edit, Button, и Label (для вывода пути). И я так думаю нам нужно будет два цикла, первый для перебора и загрузки файлов, второй для перебора строк.
Но я не знаю как правильно это организовать програмно!
Помогите пожалуйста!
За ранее спасибо!

[Stilet]

Функа поиска в файле:

function FindInFile(Filename,aWord:String):Boolean;
begin
 with TStringList.Create do begin
  LoadFromFile(Filename);
  Result:=pos(aWord,Text)<>0;
  Free;
 end;
end;

Ее юзанье:

if FindInFile('c:\file.txt','Hello world') then ShowMessage('Слово есть в c:\file.txt');

Идея понятна?

[Parnischa55]

Идея понятна. Буду пробовать.
Спасибо!

Я думаю тут еще надо добавить else

<code> if FindInFile('c:\file.txt','Hello world') then ShowMessage('Слово есть в c:\file.txt') else ;</code>

Еще один вопрос.
Как записать первую строку текстового файла в переменную?

[Serge_Bliznykov]

Как записать первую строку текстового файла в переменную?

смотря как Вы файл открываете..

если взять код Stilet за основу, тогда:

function FindInFile(Filename,aWord:String):Boolean;
var s : string;
begin
 with TStringList.Create do begin
   LoadFromFile(Filename);
   if Count>0 then s := Strings[0] {взяли первую строку из файла в переменную s}
   else s := ''; {если в файле нет вообще строк...}

   ....

[Parnischa55]

Возникла проблема
Искомое слово находится в обоих файлах, а цикл сбрасывается после первого нахождения, либо просто второй раз не выводится в лист бокс

var
  Form1: TForm1;
  s : string;
implementation

{$R *.dfm}

function FindInFile(Filename,aWord:String):Boolean;
begin
 with TStringList.Create do begin
  LoadFromFile(Filename);
  Result:=pos(aWord,Text)<>0;
  Free;
 end;
end;
 function FindInFile1(Filename,aWord:String):Boolean;

begin
 with TStringList.Create do begin
   LoadFromFile(Filename);
   if Count>0 then s := Strings[0] {âçÿëè ïåðâóþ ñòðîêó èç ôàéëà â ïåðåìåííóþ s}
   else s := ''; {åñëè â ôàéëå íåò âîîáùå ñòðîê...}
   end;   end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Clear   ;
if FindInFile('c:\file.txt', edit1.Text) then
begin
FindInFile1('c:\file.txt','1') ;
ListBox1.Items.Add(s)   ;
ShowMessage('????? ???? ? c:\file.txt') end   else
if FindInFile('c:\file2.txt', edit1.Text) then begin
FindInFile1('c:\file2.txt','1') ;
ListBox1.Items.Add(s)   ;

 ShowMessage('????? ???? ? c:\file2.txt');
  end ;
end;

end.

_________________
теги [ CODE ] [ / CODE ] - должны быть БЕЗ пробелов внутри!
А ещё удобно выделить код программы и нажать на кнопку форматирования сообщения
на форме, на которой нарисован знак #

Модератор.

[Parnischa55]

Все таки проблема в цикле.
Как правильно организовать цикл чтобы он продолжал поиск после первого нахождения?

[Serge_Bliznykov]

код, конечно, жуткий. Например, абсолютно непонятно, зачем Вы ДВАЖДЫ читаете каждый файл? Одного раза более чем достаточно.

А во-вторых, что у Вас не работает?! Какой цикл?! Ткните меня в те строчки кода, которые Вы называете циклом?!

Как правильно организовать цикл чтобы он продолжал поиск после первого нахождения?

во-первых, у Вас в программе никакого цикла вообще нет.
А во-вторых, что Вам нужно сделать? Как задание формулируется изначально?

[Parnischa55]

Ошибки как таковой не возникает. Программа компелируется.
Искомое слово в обоих файлах, просто как только слово встречается в первом файле цикл останавливается, я это понял т.к. второе диалоговое окно не выскакивает.
Если есть другие варианты кода то помогите.

Все понял, у меня условие а не цикл. Извеняюсь

Ура) Получилось благодаря общим усилиям! Спасибо всем большое

var
  Form1: TForm1;
  s : string;
implementation

{$R *.dfm}

function FindInFile(Filename,aWord:String):Boolean;
begin
 with TStringList.Create do begin
  LoadFromFile(Filename);
  Result:=pos(aWord,Text)<>0;
  Free;
 end;
 with TStringList.Create do begin
   LoadFromFile(Filename);
   if Count>0 then s := Strings[0] 
   else s := '';
   end;
end;

   procedure TForm1.Button1Click(Sender: TObject);
   Var
   i: integer;
begin
ListBox1.Items.Clear   ;
ListBox1.Items.Add('Результат поиска')   ;
for i:=1 to 2 do
if FindInFile('c:\file'+FloatToStr(i)+'.txt', edit1.Text) then
ListBox1.Items.Add(s)
end;

Вот как то так.

[Serge_Bliznykov]

О! НЕТ!!!

function FindInFile(Filename,aWord:String):Boolean;
begin
 with TStringList.Create do begin
  LoadFromFile(Filename);
  Result:=pos(aWord,Text)<>0;
  if Count>0 then s := Strings[0] 
  else s := '';
  Free;
 end;

не надо ДВАЖДЫ читать файл, тем более, чтобы взять в нём первую строку!!!

[Parnischa55]

Serge_Bliznykov Большое спасибо за поправку.