Удалить строки из Memo

[Streb]

Добрый день!
Скажите, пожалуйста, как удалить строки из Memo в цикле?
Есть некоторые строки в Memo, которые периодически повторяются.
Memo1
Connect
~DEC/08/2051 12:16:01
Name: Sername:
Ward: Age:
SD (10) (1640)
Необходимо удалить все строки между строками Memo1 и Ward: Age:
Строка Memo1 не всегда первая и количество строк между строками Memo1 и Ward: Age: всегда разное.

Написан такой код, но он удаляет только первые найденные строки, а надо все.

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
i:=0; //найдем строку за которой удалять
while Memo1.Lines[i]<>'Memo1'do inc(i);//нашли Memo1
j:=i+1; //после нее удаляем
while Memo1.Lines[j]<>'Ward: Age: 'do //до строки Ward: Age: 
Memo1.Lines.Delete(j);
end;

[Serge_Bliznykov]

Вы или программу не ту привели, или пример неудачный выбрали!

в коде:

while Memo1.Lines[i]<>'01'do inc(i);//нашли
while Memo1.Lines[j]<>'05'do //до строки 05

где в примере строка '01' и строка '05' ?


а так, я бы поступил просто. цикл по строкам, начиная от последней строки.
если наткнулись на строку==конец фрагмента, то установили переменную.
если наткнулись на строку==начало фрагмента и переменная установлена - удаляем всё между и сбрасываем переменную.
повторяем, пока не дойдём до первой строки Memo1

финита.

[Streb]

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

Вы или программу не ту привели, или пример неудачный выбрали!

в коде:


где в примере строка '01' и строка '05' ?


а так, я бы поступил просто. цикл по строкам, начиная от последней строки.
если наткнулись на строку==конец фрагмента, то установили переменную.
если наткнулись на строку==начало фрагмента и переменная установлена - удаляем всё между и сбрасываем переменную.
повторяем, пока не дойдём до первой строки Memo1

финита.

Отредактировал...
Можно пример?

[evg_m]

i:=0;// начнем сначала
while i<Memo1.Lines.count do begin //просмотрим все до конца
  //найдем строку за которой удалять
  while (i<Memo1.Lines.count) and (Memo1.Lines[i]<>'Memo1') do inc(i);//нашли Memo1
  i:=i+1; //после нее удаляем
  while (i<Memo1.Lines.count) and (Memo1.Lines[i]<>'Ward: Age: ') do //до строки Ward: Age: 
  Memo1.Lines.Delete(i);
  i:=i+1;//оставим эту строчку и "пойдем искать дальше"
end;

i:=0;// начнем сначала
startdelete:=-1; //какую строку будем удалять
while i<Memo1.Lines.count do begin //просмотрим все до конца
  //найдем строку за которой удалять
  if Memo1.Lines[i]='Memo1' then startdelete:=i+1; //будем удалять со следующей
  if Memo1.Lines[i]='Ward: Age: ' then startdelete:=-1; // все больше не удаляем
  if i=startdelete then Memo1.Lines.Delete(i) 
  else i:=i+1;//оставим эту строчку и "пойдем искать дальше"
end;

[Streb]

Еще один вопрос, как удалить последние 4 строки из memo?

[evg_m]

....
if i>=memo1.lines.count -4 then startdelete:=i;
if i=StartDelete then ....

while (i<memo1.lines.count) and (i>=memo1.lines.count-4) do ....

[Serge_Bliznykov]

for i:=memo1.lines.count-1 downto memo1.lines.count-4 do
  if i>=0 then Memo1.Lines.Delete(i);

[Streb]

Благодарю за помощь!