Количество ссылок

[bulldog5293]

Извеняюсь за нубский вопрос, но со страницы ссылки получаю так

while Pos('view.php?ad=', Str) > 0 do
begin
Delete(Str, 1, Pos('view.php?ad', Str) + 11);
EPos := Pos('"', Str);
with Form2.Listview1 do
begin
Items[I].SubItems.Append(System.Copy(Str, 1, EPos - 1));
System.Delete(Str, 1, EPos + 17);
end;
Delete(Str, 1, EPos + 3);
end;

то есть, скидываю все ссылки в листвью, а количество общее их как в listview обозначить забыл

[Аватар]

Вопрос поставлен наверно при хорошем похмелье. Может ListView1.Items[i].SubItems.Count

[bulldog5293]

while Pos('view.php?ad=', Str) > 0 do
        begin
          Delete(Str, 1, Pos('view.php?ad', Str) + 11);
          EPos := Pos('"', Str);
          with Form2.Listview1 do
          begin
            Items[I].SubItems.Append(System.Copy(Str, 1, EPos - 1));
            Items[i].SubItems[1].Count:=Str;// что с Str, что без.
//знаю что string и integer дружить не хотят, но всё же, добавление ссылок у меня 
//идёт с N SubItems
            System.Delete(Str, 1, EPos + 17);

не получилось

Написал так

while Pos('view.php?ad=', Str) > 0 do
        begin
          Delete(Str, 1, Pos('view.php?ad', Str) + 11);
          EPos := Pos('"', Str);
          with Form2.Listview1 do
          begin
            count:=Items[i].SubItems.Count;
            Items[I].SubItems.Append(System.Copy(Str, 1, EPos - 1));
            System.Delete(Str, 1, EPos + 17);
          end;
          Delete(Str, 1, EPos + 3);
        end;
        Form2.Listview1.Items[i].SubItems[3]:=intToStr(count);

показывает 8, а на сайте 1, отсчёт надо вести с N SubItems кто нить подскажите как?

mihali4 по другому не понимаю как в цикл забивать поиск

[mihali4]

Зачем вы удаляете-то ?
Есть функция PosEx, позволяющая искать последующие вхождения подстроки...

[bulldog5293]

Вопрос снят, разобрался