Есть вот такой вот код, написанный для поиска строки в файлах:
Код:
for z:=0 to ListBox1.Items.Count-1 do begin
Memo9.Lines.LoadFromFile(extractfilepath(Label1.Caption)+'cl_dll\'+AnsiReplaceText(ListBox1.Items[z], '"', ''));
if pos(Edit1.Text,SynMemo1.Lines.Text) <> 0 then begin
Memo8.Lines.Add(ListBox1.Items[z]);
end;
end;
B ListBox хранятся имена файлов, они заключены в кавычки.
Проблема в том, что в Memo8 прописываются все файлы, а не только те, в которых были найдены совпадения. В чем дело?