Witam,
mój problem wygląda następująco: mam na formie komponent listbox1 do którego wcześniej dodałem kilka wierszy (nazwy plików). Chciałbym dodać te wartości jako nazwy itemów do listview (każda kolejna wartość do nowego itema). Napisałem taki kod:
procedure TForm1.Button4Click(Sender: TObject);
var
Item: TListItem;
i :integer;
begin
for i:=0 to listbox1.Count-1 do
Item := ListView1.Items.Add;
Item.Caption := listbox1.items.strings[listbox1.itemindex];
//próbowałem zamiast "listbox1.itemindex" dawać "i" ale nic to nie daje
Item.SubItems.Add(combobox1.items[combobox1.itemindex]);
Item.SubItems.Add(combobox2.items[combobox2.itemindex]);
Item.SubItems.Add(combobox3.items[combobox3.itemindex]);
Item.SubItems.Add(combobox4.items[combobox4.itemindex]);
Item.SubItems.Add(edit1.Text);
end;
Dodam że ta sama procedura bez pętli i z wartością
Item.Caption:= listbox1.items.strings[0];
działa poprawnie-dodaje jedną wartość do listview. Natomiast gdy próbuję zrobić dodawanie w pętli zwraca błąd: index of out bounds(2)
Nie wiem w którym miejscu robię błąd, proszę pomóżcie