Удалить 5-ти сивльные строки

[brownb]

Добрый день!
Подскажите как удалить строки в мемо которые равны 5 сиволам

[p51x]

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

[PTyTb32]

cl:=tstringlist.create;
cl:=memo1.lines;
for i:=0 to cl.count-1 do
  if cl[i].length = 5 then
memo1.lines.delete(memo1.Lines.IndexOf(cl[i]));

[Serge_Bliznykov]

PTyTb32, кошмар.
да ещё и с багами.

тогда уже так:

  for i:=Memo1.Lines.Count-1 downto 0 do 
    if Length(Memo1.Lines[i])=5 then Memo1.Lines.Delete(i);

p.s. если текст большой, тогда имеет смысл перенести текст в TStringList, его в цикле обработать и потом вернуть обработанный результат в Memo

[Аватар]

for i:=cl.count-1 downto 0 do
  if cl[i].length = 5 then cl.delete(i);

Ой, опоздал ))

[PTyTb32]

downto оу.. а так можно было всю дорогу))) что ж, буду знать)

[northener]

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

downto оу.. а так можно было всю дорогу)))

Сочувствую

[PTyTb32]

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

Сочувствую

теперь страшно представить сколько раз это сократило бы то что я писал....