|
#1
|
|||
|
|||
Поиск в файлах
Есть вот такой вот код, написанный для поиска строки в файлах:
Код:
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 прописываются все файлы, а не только те, в которых были найдены совпадения. В чем дело? |
#2
|
||||
|
||||
Че-то я не пойму. Грузишь файл в МЕМО9, а POS ищешь в неком SYNMEMO1. ???
jmp $ ; Happy End! The Cake Is A Lie. |
#3
|
||||
|
||||
Как-то загружать файл в Мемо и потом в тексте искать нужный - не катит. Лучше организовать поиск по байтно, т.к. есть некоторые символы, которые не загружаются в Мемо. Если просто нужно найти нейкий текст в текстовом файле, то я бы делал через ReadLn
|
#4
|
||||
|
||||
- Петька приборы?
- 32! - Что 32? - А что приборы? Вот ваш ответ видимо в том-же стиле. Какое отношение SynMemo1 имеет к Memo9? Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |