listview

[bulldog5293]

таким кодом я могу получить все ссылки со страницы
Memo1.Text := '';
while Pos('viewp.php?ad',a)>0 do begin
Memo1.Lines.Append(Copy(a,Pos('view p.php?ad',a)+13,6));
Delete(a,1, Pos('viewp.php?ad',a)+13);
end;
А как можно просумировать, тоесть узнать их количество и вписать ихниюю сумму(число) в колонку Listview к примру пятую?

[casper0094]

Чесно говоря я несовсем понял что вы хотите сделать, но вот возможно это то что вам надо.
Memo1.Lines.Count количество строк в memo насколько я помню + ещё можно memo1.text := '' заменить на Memo1.Clear;

а на счёт listview я конечно не мастер но помойму его надо в стиль report и добавить эти пять клонок а потом что -то типо этого listview1.Items.Add.SubItems.String s[5] := '111';

[bulldog5293]

a:= IdHttp1.Get('http://www.сайт.net/work.php?r=');
Memo1.Text := '';
while Pos('viewp.php?ad',a)>0 do begin
Memo1.Lines.Append(Copy(a,Pos('view p.php?ad',a)+13,6));
Delete(a,1, Pos('viewp.php?ad',a)+13);
end;
Я хочу этот код переписать для Listview, но своих знаний пока мало, вот и спросил

[casper0094]

ListView1.Columns.Add;
  ListView1.Columns.Add;
  ListView1.Columns[0].AutoSize := true;
  ListView1.Columns[1].AutoSize := true;
  ListView1.Columns[0].Caption := '1';
  ListView1.Columns[1].Caption := '2;

Чесно говоря я тоже недавно столкнулся с данным компонентом и делаю я так: изначально создаю две колонки. Потом при надобности добавить что-нибудь делаю так :

Var
  ListItem : TListItem;

  ListItem :=   ListView1.Items.Add;
  ListItem.Caption := '1';
  ListItem.SubItems.Add('2');

и у меня получается что в колонке с название 1 будет цифра '1' а в колонке с название 2 будет цифра '2'

[bulldog5293]

Темне менее вопрос остаётся, как listview использовать как memo?

[casper0094]

В каком смысде как Memo ? Чего именно вы хотите добится от ListView ?

[bulldog5293]

Получить общее количество ссылок по маске view p.php?ad

[casper0094]

Ну так вот этот кд показывает сколько всего строк в ListView :

 ListView1.Items.Count;

А если вы пытаетесь сделать таблицу то и воспользуйтесь соответствуюшем компонентом.

[bulldog5293]

А

ListView1.Columns.Add;
ListView1.Columns.Add;
ListView1.Columns[0].AutoSize := true;
ListView1.Columns[1].AutoSize := true;
ListView1.Columns[0].Caption := '1';
ListView1.Columns[1].Caption := '2;

Var
ListItem : TListItem;

ListItem := ListView1.Items.Add;
ListItem.Caption := '1';
ListItem.SubItems.Add('2');

Куда лучше вставить, в обработчик кнопки idhttp или в другое место

[casper0094]

ListView1.Columns.Add;
ListView1.Columns.Add;
ListView1.Columns[0].AutoSize := true;
ListView1.Columns[1].AutoSize := true;
ListView1.Columns[2].AutoSize := true;
ListView1.Columns[0].Caption := '1';
ListView1.Columns[1].Caption := '2;
ListView1.Columns[2].Caption := '3;

При создании формы

Var
ListItem : TListItem;

ListItem := ListView1.Items.Add;
ListItem.Caption := '1';
ListItem.SubItems.Add('2');
ListItem.SubItems.Add('3');

Это уже вставляёте в то место где вам необходимо добовлять ссылки.
Кстати обрашаются к первой колонке ListView.Items.Item[0].caption а к последуюшим ListView.Items.Item[0].SubItems.Strings[0] начиная с нуля 0 - 2 колонка.