Цитата:
|
Сообщение от Страдалецъ
Видимо вы хотели такое:
Код:
Var i,j: Integer;
begin
for i := 0 to Memo1.Lines.Count - 1
do if Pos('<3>', Memo1.Lines[i]) <> 0
then for j := i - 1 downto 0
do if Pos('<2>', Memo1.Lines[j]) <> 0
then Memo1.Lines.Delete(j); |
удаляет только строку <2>...
нужно удалить всё между <2> и <3> и саму строку <2>