ListBox (Delphi)

[CAMOBAP]

Как из StringList вывести сроки в ListBox начиная с i:=4 и до конца StringList. Только строки нужно выводить не все подряд , а только i:=i+8

[AlDelta]

используйте цикл while, c шагом i:=i+8
условие выхода из цикла: i<TStringList.Count-1
добавить строку в TListBox - TListBox.Append();
доступ к элементу TStringList: TStringList[i]

...
var i:integer
    list:TStringList;
...
i:=4;
while (i<list.count-1) do
Begin
  ListBox.Append(list[i]);
  inc(i,8);
end;
...

[CAMOBAP]

Спасибо большое, с этим все ясно. Но трудность состоит в том что бы вывести строки которые идут после них.
скажем так

StringList: 
stroka 1
stroka 2
..
stroka 4(i:=4)
stroka 5
stroka 6
.. 
stroka 12(i:=i+8) 
stroka 13
..
stroka 20(i:=i+8)

Так вот, как можно вывести cnhjrb c 5 по 11 по нажатию на четвертую ?

[AlDelta]

Hомер, выбранной строки, находится в свойстве ItemIndex у TListBox.
Проходите циклом от i:=ItemIndex+1 до ItemIndex + 7 и "выводите" строки TStringList[i]
Используйте событие OnClick у TListBox

[CAMOBAP]

Немного не понял. Цикл составил, а в цикле не пойму как прописать. Вопрос еще в том что каждой строке (с ListBox1.ItemIndex+1 до ListBox1.ItemIndex+7 ) соответствует Label . На них и надо выводить.

for k:=sListBox1.ItemIndex+1 to sListBox1.ItemIndex+7 do
sLabel1.Caption:=sl[k];
sLabel2.Caption:=sl[k+1];
sLabel3.Caption:=sl[k+2];
sLabel4.Caption:=sl[k+3];
sLabel5.Caption:=sl[k+4};

но не совсем выходит

[Stilet]

Имхо:

with sListBox1 do begin
 k:=ItemIndex+1;
 while k<(Count-1) do begin
  sLabel1.Caption:=sl[k];inc(k);
  sLabel2.Caption:=sl[k];inc(k);
  sLabel3.Caption:=sl[k];inc(k);
  sLabel4.Caption:=sl[k];inc(k);
  sLabel5.Caption:=sl[k];inc(k);
 end;
end;

Идея понятна?

[CAMOBAP]

Мне кажется что не совсем правильно.Ведь если k:=ItemIndex+1 и мы выбираем первый элемент listbox то k=2. Или я не прав?

[Stilet]

Я просто следовал твоей логике, учитывая что тебя, извини, трудно понять.
Убери инкремент если он не нужен.

[CAMOBAP]

А я следовал логике AlDelta.
Но проблему решил.Уравнение составил, решил и вывел алгоритм.
Вот что вышло.

z:=((13*sListBox1.ItemIndex)-5*((sListBox1.ItemIndex)-1));
showmessage(inttostr(z));
sLabel1.Caption:=sl[z];inc(z);
sLabel2.Caption:=sl[z];inc(z);
sLabel3.Caption:=sl[z];inc(z);
sLabel4.Caption:=sl[z];inc(z);
sLabel5.Caption:=sl[z];inc(z);

Спасибо всем. Без ваших подсказок не получилось бы.