найти в мемо

[grater83]

как найти слово в мемо и удалить все строки где это слово встречается

[Serge_Bliznykov]

примерно так:

var i : integer;
  TS : TStringList;
begin
  TS := TStringList.Create;
  TS.Text := Memo1.Text;
  for i:=TS.Count-1 downto 0
    do if Pos('ВашеСлово',TS.Strings[i])>0
       then TS.Delete(i);
  Memo1.Text := TS.Text;
  FreeAndNil(TS);
end;

Внимание.
Поиск слова будет производится только в заданном регистре. Т.е. если Вы зададите слово прописными буквами, то слова, написанные строчными - не найдутся.

И ещё. Удаление будет и тех строк, где слово входит в состав другого текста. Например, слово ЛОМ удаляться строки, где есть ОБЛОМ ДУБОЛОМ ЛОМБАРД и т.д.
Если это не устраивает, тогда надо: 1) решить, что является разделителем слов
2) парсить строку и разбирать на отдельные слова.
3) отдельные слова проверять на совпадения
на форуме полно примеров, так строчку разобрать на отдельные слова.

[grater83]

спасибо....

[grater83]

как в мемо2 удалить такие же по счету строчки ,которые были удалены из stringlist'a

[MyLastHit]

memo2.Lines.Delete(i); - удаляет i-ую строку из мемо.
для последующего удаления если знаешь номера строк, которые нужно удалить, то i:=i-1;
ТЕ:

memo2.Lines.Delete(1); - удалили вторую строку(тк счет идет с 0);
memo2.Lines.Delete(3); - удалили пятую строку(здесь т.к. была удалена 2ая строка, то счет уже идет на i--)
memo2.Lines.Delete(3); - удалили шестую строку
memo2.Lines.Delete(3); - удалили седьмую строку
memo2.Lines.Delete(4); - удалили девятую строку.
и тд

[grater83]

а если не знаю.
которые были удалены из stringlist'a

[MyLastHit]

Тоесть тогда вопрос нужно формулировать вот так:
Хочу удалить строки из мемо, но не знаю какие. Посоветуйте.

[Serge_Bliznykov]

которые были удалены из stringlist'a

удалены кем? Вами (вашим кодом)? так в процессе удаления удаляйте строки из мемо..

p.s. А зачем ЭТО Вам?! Боюсь, что Вы задачу решаете совсем не так!

[chertovich]

Сообщение от MyLastHit

Тоесть тогда вопрос нужно формулировать вот так:
Хочу удалить строки из мемо, но не знаю какие. Посоветуйте.

Хочешь совет? удаляй 5 строку

А если серьезно, меня поражают люди, которые хранят инфу в Memo.
Есть же способы лучше, а в Memo можно только отображать и получать инфу

[grater83]

возможно, может плохо объясяю.
есть мемо1 внем ищу слово и удаляю строку ,где это слово встречается

var i : integer;
  TS : TStringList;
begin
  TS := TStringList.Create;
  TS.Text := Memo1.Text;
  for i:=TS.Count-1 downto 0
    do if Pos('ВашеСлово',TS.Strings[i])>0
       then TS.Delete(i);
  Memo1.Text := TS.Text;
  FreeAndNil(TS);
end;

теперь, есть мемо2 внем текст,если в мемо1 нашлись строки с этим словом
например строки 1,5,7,9,и т.д. то и в мемо2 надо удалить такие же 1,5,7,9