Доброго времени суток товарищи!
Такой вопрос: загружаю в лист бокс большой файл похожий на ini выглядит он так:
Заголовок
.......
.........
.....
Конец
Примечания
.....
.
....
Конец
мне необходимо получить информацию из раздела "заголовок" все включающиеся строчки до фразы "конец"
вот предлагаю алгоритм что не так подскажите?
Код:
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;
может я не тот цикл использую?