| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с LVItemData

MTsv DN ©   (2008-11-15 09:53:00) 

Всем привет.

Возник такой вопрос. Как ПРАВИЛЬНО работать с LVItemData?
Вот тестовый проект. Где ошибка???
http://ru.uus4u.com/downloads/other/test.7z

---

MTsv DN   (2008-11-15 19:58:00) [1]

2 Дмитрий К
Спасибо огромное... Все ясно...

---

Дмитрий К   (2008-11-15 14:36:00) [2]

procedure TForm1.btnClick(Sender: PObj);
var
i, l : integer;
P : PNetResource;
S : String;
begin
for i := 0 to 19 do
 begin
  P := PNetResource(lv1.LVItemData[i]);
  S := P.lpLocalName;
  l := lv2.LVItemAdd(S);
 end;
end;

procedure TForm1.KOLForm1FormCreate(Sender: PObj);
var
i, l : integer;
P : PNetResource;
S : String;
begin
lv1.LVColAdd('', taCenter, 179);
lv2.LVColAdd('', taCenter, 179);
for i := 0 to 19 do
 begin
  GetMem(P, SizeOf(TNetResource));
  S := 'Test line: ' + kol.Int2Digs(i, 2);
  l := lv1.LVItemAdd(S);
  P.lpLocalName := AllocMem(Length(S) + 1);
  Move(Pointer(S)^, P.lpLocalName^, Length(S));
  lv1.LVItemData[l] := DWORD(P);
 end;
end;

---

Наверх