Как выполнить поиск в memo правильно..?

← →
wancuver (2010-04-23 11:15) [0]

procedure TForm1.Button1Click(Sender: TObject); begin ListBox1.Clear; // очистка компонента ListBox1 перед занесением в него списка файлов FindRes:=FindFirst(ExtractFilePath(Application.ExeName)+"Processed files/*.txt",faAnyFile,SR); // задание условий поиска и начало поиска While FindRes=0 do // пока мы находим файлы (каталоги), то выполнять цикл begin ListBox1.Items.Add(SR.Name); // добавление в список название найденного элемент res:=ExtractFilePath(Application.ExeName)+"Processed files/"+SR.Name; memo1.Lines.Add(res); // вот сдесь выполнить поиск в memo1 регулярным выражением. Найден участок совпадения, сохранить в ListBox2 и продолжить поиск..??? FindRes:=FindNext(SR); // продолжение поиска по заданным условиям end; FindClose(SR); // закрываем поиск kiv:=listbox1.Items.Count; label6.Caption:=IntToStr(kiv); end;
Пробывал что то делать, но без успеха, в delphi не сильно разбераюсь. Прошу помощи у мастеров

← →
wancuver (2010-04-23 11:20) [1]

Если есть другие алгоритмы поиска, с интересом прочту

← →
oldman © (2010-04-23 11:52) [2]

> вот сдесь выполнить поиск в memo1 регулярным выражением.
> Найден участок совпадения, сохранить в ListBox2 и продолжить
> поиск..???

Тебе код написать по регулярным выражениям или по сохранению в ListBox2?

> Пробывал что то делать, но без успеха

Как пробовал?

> Если есть другие алгоритмы поиска, с интересом прочту

Ты даже задачу не объяснил, о алгоритме умолчу.

← →
oldman © (2010-04-23 11:58) [3]

И топик, имхо, для "Начинающих"

← →
12 © (2010-04-23 12:14) [4]

// вот сдесь выполнить поиск в res. Зачем добавлять строку и опять искать во всем тексте?
memo1.Lines.Add(res);

← →
oldman © (2010-04-23 12:19) [5]

> kiv:=listbox1.Items.Count;
> label6.Caption:=IntToStr(kiv);

А почему вместо
ListBox1.Items.Add(SR.Name);
не
kiv:=kiv+1;

← →
oldman © (2010-04-23 12:58) [6]

А уж если так нужен ListBox, почему не

label1.caption:=inttostr(listbox1.items.count);

← →
Anatoly Podgoretsky © (2010-04-23 13:17) [7]

> Зачем добавлять строку
> и опять искать во всем тексте?

Что бы получить бесконечный цикл.

← →
wancuver (2010-04-23 14:49) [8]

Уважаемый oldman, я не очень знаком с регулярными выражениями, если выложите ссылочку на материал, буду благодарен, а тогда объяснить бы сохранение того что найду в listbox2..

← →
oldman © (2010-04-23 15:02) [9]

> wancuver (23.04.10 14:49) [8]

То есть всю ветку ты не читал?
Не нужен тебе поиск в мемо, не нужен...
:)

← →
wancuver (2010-04-23 15:10) [10]

> oldman © (23.04.10 15:02) [9]
>
>
> > wancuver (23.04.10 14:49) [8]
>
>
> То есть всю ветку ты не читал?
> Не нужен тебе поиск в мемо, не нужен...
> :)

У Вас есть ICQ, можно с Вами поговорить ВНЕ эфира.?

← →
wancuver (2010-04-23 15:12) [11]

Мой uin 413410131

← →
wancuver (2010-04-23 15:15) [12]

Спасибо за ответы, искать всёже нужно не в memo а в самой переменной res.

← →
Amoeba_ (2010-04-23 16:08) [13]

Статья о регулярных выражениях:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=163

← →
Не занят (2010-04-23 22:18) [14]

В конце концов выяснится, что искать нужно в текстовом файле.

Как выполнить поиск в memo правильно..? Найти похожие ветки