Помогите разобраться с поиском в RichEdit

← →
JEDI © (2010-09-14 21:02) [0]

В Delphi нужно найти в тексте, который находится в RichEdit, определенные слова и вывести в RichEdit СТРОКИ в которых содержутся эти слова, а остальное удалить.
Допустим у меня такой текст:

"Имя - Святополк
Фамилия - Иванов
Отчество - Валентинович
Телефон - 123543

Имя - Ян
Фамилия - Петров
Отчество -Георгивич
Телефон - 762309

Имя - Евгений
Фамилия - Сидоров
Отчество - Николаевич
Телефон - 768610"

Мне нужно чтобы выводило только строки с "Имя" и "Телефон" вот так:

"Имя - Святополк
Телефон - 123543

Имя - Ян
Телефон - 762309

Имя - Евгений
Телефон - 768610"

← →
Германн © (2010-09-14 21:38) [1]

for i:=RichEdit1.Lines.Count-1 downto 0 do if (Pos("Имя",RichEdit1.Lines[i]) <> 1) and (Pos("Телефон",RichEdit1.Lines[i]) <> 1) then RichEdit1.Lines.Delete(i);

← →
JEDI © (2010-09-15 19:45) [2]

Спасибо большое.
А как быть если допустим в тексте перед "Имя" стоит 2 пробела? Он отказывается находиться тогда.

← →
JEDI © (2010-09-15 19:45) [3]

Удалено модератором

> А как быть если допустим в тексте перед "Имя" стоит 2 пробела?
> Он отказывается находиться тогда

if pos(..., trim(RichEdit1.Lines[i]))...

Помогите разобраться с поиском в RichEdit Найти похожие ветки