ListView1 и Tstringlist

[bulldog5293]

Есть функция вызывания потока из данных listview, после того как ListView1 присвоил Tstringlist, он начал ругаться на items.

procedure TForm2.But_Pay_Button2Click(Sender: TObject);
var
  Pay : Array Of PayThread1;
  ListView1:Tstringlist;
begin
  ListView1:=Tstringlist.create;
  for s:=0 to Listview1.Items[s].count-1 do
  begin
  FURL := '' + Listview1.Items[s].SubItems[0];
  begin
  SetLength(Pay,Listview1.Items[s].count + 1);
    Pay[s]:=PayThread1.Create(True,Li.Items[s]);
    Pay[s].FreeOnTerminate := True;
    Pay[s].Resume;
  end;
end;
end;

Из-за чего такое может быть?

[Sanprof]

а вы уверены, что у вас в программе нету визуального компонента ListView1?

[Mad_Cat]

Откуда у стринглиста subitems???

[bulldog5293]

Sanprof
а вы уверены, что у вас в программе нету визуального компонента ListView1?

Всмысли визуального компанента, просто я не понял

Mad_Cat
Откуда у стринглиста subitems???

А как без subitems, если данные хранятнся именно в них?

[Stilet]

for s:=0 to Listview1.Items[s].count-1 do

Ачучметь. Никого ничего не напрягает в этой строке?
Или это я не понимаю скрытого смысла изменять предел цикла для его же итераций?

[bulldog5293]

Так у меня если данные находятся в Listview1.Items[s].SubItems[0]; а их то есть items может быть много

[XeruH]

1. У класса TStrings нет свойства SubItems. Очень похоже что ListVew1 это у вас компонент. Тогда зачем ListView1:Tstringlist;?
2. Чтобы пробегать по Items надо делать так Pred(ListView1.Items.Count)?

[bulldog5293]

1. Да компонент, по другому пока не умею
2. тоесть нада в место for s:=0 to Listview1.Items[s].count-1 do использовать
for s:=0 to Pred(ListView1.Items.Count-1) do?

[Stilet]

Чтобы пробегать по Items надо делать так Pred(ListView1.Items.Count)?

Окак... Ану приведи пример кода. Мне стало интересно как это будет работать.

по другому пока не умею

Выкинь строку ListView1:Tstringlist;

[XeruH]

1. Что значит по другому не умею? Зачем вы тогда объявляете еще одну переменную ListView1 с типом TStringList??? Как у вас среда вообще на это не ругается?
2. Нет. Не так. Либо Pred(ListView1.Items.Count), либо ListView1.Items.Count - 1. Pred описан в справке.

Сообщение от Stilet

Окак... Ану приведи пример кода. Мне стало интересно как это будет работать.

Что тут такого

  
  for I := 0 to Pred(ListView1.Items.Count) do
    ShowMessage(ListView1.Items[I].Caption);