Вниз
Скачать: 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-1101115638
dDan
2004-11-22 12:27
2004.12.12
IRC клиент


3-1099041934
stud
2004-10-29 13:25
2004.12.12
dbchart delphi7


4-1097680465
Сергей К.
2004-10-13 19:14
2004.12.12
Пример low level хука


8-1095352608
UserUserov
2004-09-16 20:36
2004.12.12
Графика на консоли в Delphi


1-1101710156
maxistent
2004-11-29 09:35
2004.12.12
кард-ридеры




   Наверх