Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите разобраться с поиском в RichEdit [D7, XP]

JEDI © (2010-09-14 21:02:00)
В Delphi нужно найти в тексте, который находится в RichEdit, определенные слова и вывести в RichEdit СТРОКИ в которых содержутся эти слова, а остальное удалить.
Допустим у меня такой текст:

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

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

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

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

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

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

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

Игорь Шевченко (2010-09-15 19:50:00) [1]

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

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

JEDI (2010-09-15 19:45:00) [2]
Спасибо большое.
А как быть если допустим в тексте перед "Имя" стоит 2 пробела? Он отказывается находиться тогда.

JEDI (2010-09-15 19:45:00) [3]
Удалено модератором

Германн (2010-09-14 21:38:00) [4]
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);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »