Вниз
Скачать: CL | DM;

Вопрос по TreeView   Найти похожие ветки 

← →
Рафик   (2004-11-26 08:35) [0]

Подскажите пожалута, у меня есть база состоящия из двух полей наименования и код, в дерево мне нужно вывести только наименование (наименование не является уникальным параметром) потом в дереве пользователь выбирает какое либо наименование и по нему должна выводиться информация, как мне определить код выбранного им наименования, ведь я ж не знаю какое он может выбрать.


← →
jack128 ©   (2004-11-26 08:40) [1]

сохроняй ID в поле Data.

TreeView.Items.AddChildObject(SameParentNode, SameDataSet.FieldByName("SameStrField").AsString, Pointer(SameDataSet.FieldByName("ID").AsInteger));
и соответственно получаешь ID

ID := Integer(SameNode.Data);


← →
Рафик   (2004-11-26 09:56) [2]

Спасибо


← →
Рафик   (2004-11-26 10:22) [3]

А как мне потом достать оттуда этот параметр!!!


← →
Rouse_ ©   (2004-11-26 10:23) [4]

> А как мне потом достать оттуда этот параметр!!!
ну тебе же показали:


> и соответственно получаешь ID
>
> ID := Integer(SameNode.Data);


← →
Рафик   (2004-11-26 10:56) [5]

Вот так я записываю
dl:=DataModule2.ZKart.RecordCount;
DataModule2.ZKart.First;
for dl1:=0 to dl-1 do
begin
 str:=DataModule2.ZKart.FieldByName("Name").asstring;
 id:=DataModule2.ZKart.FieldByName("Kod").asinteger;
 node1:=TreeView1.Items.AddChildObject(node,str,Pointer(Id));

 DataModule2.ZKart.Next;
end;
И вот так получаю
но самое интересное
id:=Integer(node1.Data);

И почему то ID у меня всегда равна семи чтобы я не выделил. Хотя цифры семь там и в помине нигде нету.


← →
Rouse_ ©   (2004-11-26 11:03) [6]

> И почему то ID у меня всегда равна семи чтобы я не выделил.
потомучто Pointer(Id) - это указатель на ID и при следующем проходе цикла ты его затираешь этот самый ID.
Сделай вот так:
var
 ID: array of Byte;
 IDCount: Integer;
...
 
Inc(IDCount);
SetLength(ID, IDCount);
ID[IDCOunt - 1]:=DataModule2.ZKart.FieldByName("Kod").asinteger;
node1:=TreeView1.Items.AddChildObject(node,str,Pointer(ID[IDCOunt - 1]));


← →
Rouse_ ©   (2004-11-26 11:07) [7]

Эээ, не про то подумал...
node1.Data у тебя это что, как ты ее получаешь?


← →
Рафик   (2004-11-26 11:11) [8]

Так на клик мышки



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c
14-1101226867
syte_ser78
2004-11-23 19:21
2004.12.12
Тюльпан из бумаги


14-1100791925
Гарри Поттер
2004-11-18 18:32
2004.12.12
Помогите с составлением сметы на монтаж локальной сети


11-1083849539
Delphi5.01
2004-05-06 17:18
2004.12.12
... как вызвать функцию paint предка ...


4-1098688328
VZup
2004-10-25 11:12
2004.12.12
SetWindowText - не отправляется в Edit


1-1101725416
Gloomer
2004-11-29 13:50
2004.12.12
Компонент выбора папки




   Наверх