Скачать: CL | DM;

Помогите разобраться с поиском в 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]

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

---

← →
Игорь Шевченко ©   (2010-09-15 19:50) [4]

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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c