поиск в TMemo и работа со строками

[MixanMM]

здравствуйте всем, подскажите пожалуйста, допустим в мемо открыт файл, в нем х-кол-во строк, нужно при поиске допустим, символа ZR отсчитать каждую 2-ю, 3-ю, 24-ую и 62-ую строку 24 и 62 сравнить(это я сделал) и так до конца файла, при этом ZR может повторяться как 2-3 раза, так и раз 50, вот, спасибо заранее

[Stilet]

Я что-то не понял, тебе ножен поиск только в этих строках?
Ну обращайся по номеру строки:

n:=скажем 24;
 if n<Memo.Lines.Count then 
  if pos('ZR',Memo.Lines[n])<>0 then Нашли в n-й строке

И так далее...

[MixanMM]

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

Я что-то не понял, тебе ножен поиск только в этих строках?
Ну обращайся по номеру строки:

n:=скажем 24;
 if n<Memo.Lines.Count then 
  if pos('ZR',Memo.Lines[n])<>0 then Нашли в n-й строке

И так далее...

нет, я не совсем корректно задал вопрос...сорр), вообщем имееться текст, я его разнес по строкам, строк много, и вот после каждой строки которая состоит из ZR ( а это может и быть и 65ая строка и 159 и т.д. так до конца файла) и вот после того как нашлась ZR нужно 2ую (после того как ZR нашлась!) 3ую 24ую 62ую найти и отобразить в мемо2(это я сам сделаю) главное чтобы поиск работал

[Stilet]

Ну тогда проходи в цикле по строкам, как только в очередной строке нашел ZR то выдирай
Memo.Lines[n+2], Memo.Lines[n+24]... и т.д. строки.
Но не забудь проверять если литакие строки, ато залезешь за конец списка, и получишь ругань от программы.

[MixanMM]

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

Ну тогда проходи в цикле по строкам, как только в очередной строке нашел ZR то выдирай
Memo.Lines[n+2], Memo.Lines[n+24]... и т.д. строки.
Но не забудь проверять если литакие строки, ато залезешь за конец списка, и получишь ругань от программы.

код в студию, т.к чугунок уже дымит

[Stilet]

код в студию

Ну и ну... Дожили.
В цикле перебираешь

 
for n:=1 to  Memo.Lines.Count do
  if pos('ZR',Memo.Lines[n])<>0 then begin
   if (n+2)<Memo.Lines.count then Делаем что-то с Memo.Lines[n+2]
  end;

Точно так же с остальными: if (n+24)... Делаем что-то с Memo.Lines[n+24]
и т.д.