Здравствуйте.
У меня проблема с удалением строк в memo...
Код:
Цитата:
begin
for y:=0 to Memo4.Lines.Count -1 do
for i:=0 to Memo1.Lines.Count -1 do
begin
if AnsiPos(Memo4.Lines[y], Memo1.Lines[i])<>0 then
begin
Memo1.Lines.Delete(i);
Memo2.Lines.Delete(i);
Memo3.Lines.Delete(i);
end;
end;
end;
В memo1\memo2\memo3 находится 10 слов максимум.
В memo4 их может быть сколько угодно.
В чём суть программы.
Она узнаёт номера строк найденных слов и удаляет эти строки в memo1\memo2\memo3.
Код вроде бы рабочий, но он не удаляет совершенно всё.
Приходится нажимать по 2-3 раза что бы полностью отчистить memo от не нужных слов.
Как сделать что бы он находил все слова ?
Тупо удаление слов не подойдёт, сначала нужно именно найти № строки, ибо в каждом memo1\memo2\memo3 разные слова.
P.S. Заранее спасибо.
________________ Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Последний раз редактировалось RamDigga; 11.01.2014 в 11:43.
Регистрация: 27.10.2012
Сообщений: 24
Популярность: -183
Сказал(а) спасибо: 35
Memo. Удаление строк
