Форум: "KOL";
Текущий архив: 2010.12.12;
Скачать: [xml.tar.bz2];

Вниз

Работа с LVItemData   Найти похожие ветки 

← →
MTsv DN   (2008-11-15 09:53) [0]

Всем привет.

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

---

← →
Дмитрий К ©   (2008-11-15 14:36) [1]

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;

---

← →
MTsv DN   (2008-11-15 19:58) [2]

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

---

Страницы: 1 вся ветка

Форум: "KOL";
Текущий архив: 2010.12.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.003 c