List box Заполнение строками.

[Fahman]

Как построить Listbbox так чтоб при клике по названию можно было сделать get запрос на определенный товар, и как лучше записать его?
Идея взять listbox и закинуть туда название товара
то есть у меня открыта html страничка которая была спасена, там отображаются товары, надо каждый товар спарсить "название" + "Ссылку"
название закинуть в листбокс и чтоп при клике на определенный товар я смог сделать GET запрос на эту страницу для дальнейшей обработки


при клике по товару хочу сделать чтоб у меня открывалась вторая вкладка в PageControl1 и показывалась примерно такая инфа

спарсить и отобразить не проблема. Проблема для меня в данный момент это засунуть все в листбокс, помогите реализовать!

[Stilet]

Используй отдельный класс для данных, который связывай с элементами листбокса.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
      Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

      MyRec=class
            url:String;
			end;

			{ TForm1 }

      TForm1 = class(TForm)
						Label1: TLabel;
						ListBox1: TListBox;
						procedure FormCreate(Sender: TObject);
						procedure ListBox1Click(Sender: TObject);
      private

            { private declarations }
            procedure add(url,aname:string);
      public
            { public declarations }
      end;

var
      Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
   add('1','11');
   add('2','22');
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
 with TListBox(Sender) do Label1.Caption:=MyRec(Items.Objects[ItemIndex]).url;
end;

procedure TForm1.add(url, aname: string);
var ml:MyRec;
begin
   ml:=MyRec.Create;
   ml.url:=url;
   ListBox1.AddItem(aname,ml);
end;

end.

[Fahman]

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

Используй отдельный класс для данных, который связывай с элементами листбокса.

Как я понял так добавляется список ?

procedure TForm1.FormCreate(Sender: TObject);
begin
   add('1','11');
   add('2','22');
end;

В меню у меня такая функция

TabSheet1.Caption:='Фурнитура для стеклянных ограждений  -  Поручни';
Strdata:=IdHTTP1.Get('http://furnitura-titan.ru/catalog/furnitura_dlya_steklyannykh_ograzhdeniy/poruchni/?SHOWALL_1=1');

потом я могу уже все товары брать с Strdata а вот как взять и спарсить все в моем случае а не "1" "11" и "2" "22" )))

получается при каждом случае надо парсить...

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

Можно в стоку ListBoxa добавить пробелы (например 30) потом сделать разделитель например "|" а затем адрес или еще чего
В результате адрес в listbox виден не будет , но в строке он будет.

преходить по ссылке таким образом ?

idihttp.get:=( ListBox1.Items.ValueFromIndex[ListBox1.ItemIndex])

так я пробовал, у меня не получается так заполнить листбокс

[Stilet]

взять и спарсить все в моем случае а не "1" "11" и "2" "22"

Безымянный.jpg

..........

[Fahman]

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

Вложение 76042

..........

Ахахахаха картинка капец ))

<a href="/catalog/11/82/" class="item-title">Фитинг нижний T-110</a>

вот такие теги есть тут название и ссылка

[Stilet]

Как построить Listbbox так чтоб при клике по названию можно было сделать get запрос на определенный товар

и

а вот как взять и спарсить все в моем случае а не "1" "11" и "2" "22"

Так и тянет повторить высказывание Доктора Что, но увы, не каждый может лишь все.
Поэтому ты с точностью до одного нановброса определись пожалуйста, что же тебе нужно - привязать инфу к листбоксу, или что-то парсить.

[Fahman]

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

и

Так и тянет повторить высказывание Доктора Что, но увы, не каждый может лишь все.
Поэтому ты с точностью до одного нановброса определись пожалуйста, что же тебе нужно - привязать инфу к листбоксу, или что-то парсить.

Неее ) вот смотрите) наверно я невнятно объяснил.
Вот смотрите есть у меня Listbbox и есть Strdata(Типа стринг)
в нем лежит Html. В нем есть такие теги

<a href="http://furnitura-titan.ru/catalog/11/82/" class="item-title">Название товара</a>

Надо в Лист бокс все парсить так чтоб при клике по названию товара я мог спарсить дополнительную инфу о товаре. парсить буду сам мне только надо вычаслить по какому именно товару в списке кликнули.

[Stilet]

Ну пример подвязки я тебе показал.

[Fahman]

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

Ну пример подвязки я тебе показал.

Показали да, а вот я не пойму как всетаки спарсить

[min@y™]

спарсить и отобразить не проблема. Проблема для меня в данный момент это засунуть все в листбокс, помогите реализовать!

Чтобы сделать хорошо, нужно юзать или TListBox + свой список TStringList для хранения, или TListView - тут вообще есть, где разгуляться.
Дай мне список спарсенных данных, буду посмотреть.