Форум АНТИЧАТ - Показать сообщение отдельно

Тема: Поиск слов в тексте (delphi)

Показать сообщение отдельно

03.06.2009, 21:19

eLWAux

Постоянный

Регистрация: 15.06.2008

Сообщений: 941

Провел на форуме:
5111568

Репутация: 2399

Код:

var
r:TRegExpr;
begin
r:=TRegExpr.Create;
r.Expression:='<textarea>(.+?)<.textarea>';

далее:

если одно слово нужно:

Код:

r.Exec(Memo1.Text);
showmessage(r.Substitute('$1') );

если все слова:

Код:

 if r.Exec(Memo1.Text) then
      repeat
        showmessage(RegExp.Match[1]);
      until not RegExp.ExecNext;