Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.23;
Скачать: CL | DM;

Вниз

Хранение Id шников в ListView   Найти похожие ветки 

 
ВиТ ©   (2005-01-07 18:18) [0]

Здравствуйте! У меня есть таблица с полями id и name.
Допустим, все name"ы я печатаю в листвью.
Вопрос: как наиболее простым способом мне хранить id"шник для каждого name?


 
YurikGL ©   (2005-01-07 22:14) [1]

Можно создать динамический массив или TStringList и хранить в ячейках с одинаковым индексом в ListView name-ы а в StringList-е или динамическом массиве соответсвующий id-к.


 
Vlad ©   (2005-01-07 23:04) [2]

>ВиТ ©
А разве метод AddItem не позволяет хранить любой TObject для каждого Item"a ?
hint: В качестве TObject можно хранить и id-шник


 
ВиТ ©   (2005-01-08 12:33) [3]


> Vlad ©   (07.01.05 23:04) [2]
> >ВиТ ©
> А разве метод AddItem не позволяет хранить любой TObject
> для каждого Item"a ?
> hint: В качестве TObject можно хранить и id-шник

Вот что нашел в мане: У каждого Item есть св-во  Data
Specifies any application-specific data associated with the list item.
Delphi syntax:
property Data: Pointer;

И у меня даже заработало вот таким образом:

var
  itm:TListItem;
begin
 itm:=ListView1.Items.Add;
 itm.Caption:="MyItem";
 Integer(itm.Data^):=1;
...

Но ведь если я буду удалять\добавлять айтемы - мне придётся следить, чтобы у меня эти данные в памяти не затерялись?
Или они автоматически удаляться будут?


 
sniknik ©   (2005-01-08 14:32) [4]

можно указатель data использовать как просто число, тебе же нужно простой интеджер сохранять, он как раз того же размера что указатель, тогда выделения памяти под переменную не нужно и освобождения тоже.
код у тебя кстати неправильный при создании указатель Data будет nil а указатель от nil приведенный к интеджеру... и куда по твоему 1-ца присвоится? (по идее значение должно уйти в "... nil ;)", считать его пробовал? а еще скорее вывалится с аксесс виолейшен)

вот так вот можно
добавление
Inc(Count); //в цикле естественно, тогда Count будет порядковым номером (ну или ID у тебя)
with ListView1.Items.Add do begin
 Caption:= "MyItem";
 Data:= Pointer(Count);
end;

чтение (гденибудь в онселект)
Label2.Caption:= IntToStr(Integer(Item.Data));


 
ВиТ ©   (2005-01-08 19:05) [5]


> sniknik ©   (08.01.05 14:32) [4]

Классный способ! Спасибо!!



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

Текущий архив: 2005.01.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
14-1104981216
User_32
2005-01-06 06:13
2005.01.23
Делаю веб сервер, хочу что бы была поддержка php


11-1085136449
Deimos
2004-05-21 14:47
2005.01.23
PING


4-1101956312
Maep
2004-12-02 05:58
2005.01.23
Хранение файлов в ресурсах, как? (C++ Builder)


4-1102355599
mefisto
2004-12-06 20:53
2005.01.23
Передать программе параметры?


9-1097483896
utyf
2004-10-11 12:38
2005.01.23
как исправить directdraw.pas для delphi7 или где взять работающи?