вывод каждой второй строки из мемо

[ВалекFCRK]

Предположим у меня есть строки в мемо вот такие:

1
2
3
4
5
6
7
8
9
10

Мне нужно вывести в ShowMessage 2,4,6,8,10.
Как это сделать. Подскажите

Естественно вот так не подойдет.
Потому что в фале совсем не обязательно будет 10 строк.
memo.Lines.Strings[2];
memo.Lines.Strings[4];
memo.Lines.Strings[6];
memo.Lines.Strings[8];

[p51x]

в цикле с шагом 2

[Serge_Bliznykov]

во-первых, строки в мемо нумеруются от нуля, значит, вам нужны строчки с НЕЧЁТНЫМИ индексами.

во-вторых, получить их можно через цикл.
Либо, как верно предложил p51x в цикле с шагом 2:

  i:=1;
  while i<Memo.Lines.Count do begin
     ShowMessage( Memo.Lines[i] );
     Inc(i,2)
  end;

либо в цикле FOR проверять нечётность индекса и выводить только нужные строчки.
вот так:

  for i:=0 to Memo.Lines.Count-1 do
     if odd(i) then ShowMessage( Memo.Lines[i] );