[angvelem]

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

Попробуй так:

Код:

i:=0;
Repeat
 s:=Memo1.Lines[i];
 n:=pos('.', s);
 if n=0 then Memo1.Lines.Delete[i];
 inc(i);
until i=Memo1.Lines.Count-1;

Нельзя увеличивать i, когда произошло удаление.