[In0stRAnez]

Доброго времени суток товарищи!

Такой вопрос: загружаю в лист бокс большой файл похожий на ini выглядит он так:

Заголовок
.......
.........
.....
Конец
Примечания
.....
.
....
Конец

мне необходимо получить информацию из раздела "заголовок" все включающиеся строчки до фразы "конец"

вот предлагаю алгоритм что не так подскажите?

Код:

1 2 3 4 5 6 7 8 9 10

form5.ListBox1.ItemIndex := 0; for a := 0 to form5.ListBox1.Items.Count -1  do begin if Form5.ListBox1.Items[Form5.ListBox1.ItemIndex] = 'Заголовок' then begin      while Form5.ListBox1.Items[Form5.ListBox1.ItemIndex] = 'Тема' do begin      form5.Memo3.Lines.Add(form5.ListBox1.Items[Form5.ListBox1.itemindex]);      form5.ListBox1.ItemIndex := form5.ListBox1.ItemIndex + 1;      end;      end; end;

может я не тот цикл использую?