TListView, AddObject и GetObject

[ДралсяСошибками]

Всем привет!

Есть список в ListView, к каждой строке нужно прицепить массив байт\чаров и соответственно при клике пользовать массив))

Добавляю так:

var
  ListItem: TListItem;
  d: PChar;
begin
  ListItem := ListView1.Items.Add;
    with ListItem do
      begin
        Caption := 'чототам';
        // тут ещё сабы
        SubItems.AddObject('чототут', d);
      end;
end;

Пытаюсь получить так:

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
var
  p: TObject;
begin
  p := Item.SubItems.Objects[Item.Index];

В итоге, получаю nil. Подскажите как правильно такое провернуть

[Stilet]

SubItems.AddObject('чототут', d);

А где d эта получает свои значения?

[Аватар]

Ну так можно

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  for i:=1 to 10 do ListView1.AddItem('Строка '+IntToStr(i),TObject(StrNew(PChar('Уря-уря '+IntToStr(i)))));
end;

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
begin
  if Assigned(Item) and Assigned(Item.Data) then Label1.Caption:=String(Item.Data);
end;

procedure TForm1.FormDestroy(Sender: TObject);
var i: Integer;
begin
  for i:=0 to ListView1.Items.Count-1 do StrDispose(ListView1.Items.Item[i].Data);
end;

Можно и свой класс со строкой и его туда пихать как в этом посте
http://www.programmersforum.ru/showthread.php?t=47112

[ДралсяСошибками]

Вопчем, пишу(тырю код) компонент сниффер. Данные от него приходят в событии(ип, порт, размер, данные и прочее), что-то типо такого:

procedure TForm1.sniff1exec(ip, proto:string d:pchar dsize:integer.......);

Полученное впихиваю в listview, а данные с тем что снифф поймал, хочу прицепить к строкам списка, чтобы потом при клике отобразить в мемо и подобных.

Набросал тестовый пример в отдельном проекте, так как в основном не желает робить:

procedure TForm1.FormCreate(Sender: TObject);
var
  ListItem: TListItem;
  i: Integer;
  p: PChar;
begin
 { p := #7'12345'#8;
    for i := 0 to 9 do
      begin
        ListItem := ListView1.Items.Add;
          with ListItem do
            begin
              Caption := '1';
              SubItems.Add('2');
              SubItems.AddObject('3', Pointer(p));
            end;
      end;    }
  p := #7'12345'#8;
  ListItem := ListView1.Items.Add;
    with ListItem do
      begin
        Caption := '1';
        SubItems.Add('1');
        SubItems.AddObject('1', Pointer(p));
      end;
  p := #7'654321'#8;
  ListItem := ListView1.Items.Add;
    with ListItem do
      begin
        Caption := '2';
        SubItems.Add('2');
        SubItems.AddObject('2', Pointer(p));
      end;
  p := #7'888888'#8;
  ListItem := ListView1.Items.Add;
    with ListItem do
      begin
        Caption := '3';
        SubItems.Add('3');
        SubItems.AddObject('3', Pointer(p));
      end;
end;

procedure TForm1.ListView1Click(Sender: TObject);
var
  p: PChar;
begin
  if Assigned(TListView(Sender).Selected) then
    begin
      p := Pointer(TListView(Sender).Selected.SubItems.Objects[1]); // тут у меня был косяк, я индекс объекта ставил Item.Index
      ShowMessage(p);
    end;
end;

Пример работает, но в основном, почему-то такая фигня не прокатила(((
В итоге пришлось передавать через массив, примерно так;

c: Array of Byte;
...
SetLength(c, dsize);
CopyMemory(c, d, dsize);
SubItems.AddObject(IntToStr(dsize), Pointer(c));
SetLength(c, 0);

получать так:

p: Array of Byte;
...
p := Pointer(TListView(Sender).Selected.SubItems.Objects[4]);

от события ListView1SelectItem отказался, он почему-то срабатывает больше одного раза, пользую ListView1Click

Аватар
Когда лазил в юните listitem, видел поле data, только не совсем понял для чего оно, попробую Ваш вариант)))
класс создавать не хочу, хотя это был вариант на крайняк)))