как удалять построчно в TMemo

[MixanMM]

день добрый, вопрос, как можно из компонента ТМемо удалять построчно, и как только найдена строка состоящая только из символа (например слово "ZR" ) скопировать 3ю и 15 строку в компонент ТMemo2, затем опять начать удалять построчно и так далее до следующего ZR там также скопировать 3, 15 ит.д и т.п.

[Stilet]

Чем примеры в http://www.programmersforum.ru/showthread.php?t=54590
не устроили?

P.S. учти тема кросспостная, есть все основания закрыть, так что ответ давай адекватный.

[Ntlegend]

Memo1.Lines.Delete(i);

Memo2.Lines.Add(Memo1.Lines.Strings[i])

...

[Terran]

как можно из компонента ТМемо удалять построчно

Memo1.Lines.Delete(3);

и как только найдена строка состоящая только из символа (например слово "ZR" ) скопировать 3ю и 15 строку в компонент ТMemo2

Procedure TForm1.Button1Click(Sender: TObject);
Var
I: Integer;
Begin
Repeat
Begin
For I:=0 To Memo1.Lines.Count-1 Do
If Pos('ZR',Memo1.Lines.Strings[I])>0 Then
Begin
Memo2.Lines.Add(Memo1.Lines.Strings[2]);
Memo2.Lines.Add(Memo1.Lines.Strings[14]);
Memo1.Lines.Delete(I);
End
Else
Memo1.Lines.Delete(I);
End;
Until Memo1.Lines.Count-1 = -1 ;
End;

[MixanMM]

спсибо всем
к:

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

Чем примеры в http://www.programmersforum.ru/showthread.php?t=54590
не устроили?

P.S. учти тема кросспостная, есть все основания закрыть, так что ответ давай адекватный.

не нужно пожалуйста закрывать тему, т.к. у меня в примерах одинаковые переменные в голве сидят )), а программы абсолютно разные, т апм нужно после искать и деалть, а тут в другую мемо кидать и удалять до следующей зр

[MixanMM]

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

Memo1.Lines.Delete(3);

Procedure TForm1.Button1Click(Sender: TObject);
Var
I: Integer;
Begin
Repeat
Begin
For I:=0 To Memo1.Lines.Count-1 Do
If Pos('ZR',Memo1.Lines.Strings[I])>0 Then
Begin
Memo2.Lines.Add(Memo1.Lines.Strings[2]);
Memo2.Lines.Add(Memo1.Lines.Strings[14]);
Memo1.Lines.Delete(I);
End
Else
Memo1.Lines.Delete(I);
End;
Until Memo1.Lines.Count-1 = -1 ;
End;

а зачем вот это : "For I:=0 To Memo1.Lines.Count-1 Do
...
Until Memo1.Lines.Count-1 = -1 ;"??

[Serge_Bliznykov]

когда в цикле удаляются строки количество записей (строк) изменяется. в таких случаях ВСЕГДА удобнее идти в цикле от последних записей к первым.
Это проще, удобнее, быстрее и надежнее.

сравните, вот полностью рабочий код:

procedure TForm1.ButtonDeleteLinesClick(Sender: TObject);
var i: integer;
begin
  for i:=Memo1.Lines.Count-1 downto 0 do
    if Pos('ZR',Memo1.Lines.Strings[i])>0 then 
         Memo1.Lines.Delete(i);
end;

[MixanMM]

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

когда в цикле удаляются строки количество записей (строк) изменяется. в таких случаях ВСЕГДА удобнее идти в цикле от последних записей к первым.
Это проще, удобнее, быстрее и надежнее.

сравните, вот полностью рабочий код:

procedure TForm1.ButtonDeleteLinesClick(Sender: TObject);
var i: integer;
begin
  for i:=Memo1.Lines.Count-1 downto 0 do
    if Pos('ZR',Memo1.Lines.Strings[i])>0 then 
         Memo1.Lines.Delete(i);
end;

код рабочий, спасибо, но у меня он работает так берет находит первую строку с символом ZR, ипосле нее нужные мне строки добавляет 4 раза, хотя должен по циклу дойти до следующей ZR и после нее добавить 2 строки, в теме ниже я написал как оно должно работать, спасибо большое все равно