Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];




Вниз

TTreeView&Table 


Demon[DZ]   (2002-02-07 11:16) [0]

Privet vsem!
Moj vopros mozhet pokazatsja lamerskim:)
No vsjozhe, kak svjazat" tablicu "N_Group" s komponentom TTreeView?
Tablica N_Group sostoit:
ID ParentID Name

V pole "ParentID" hranitsja :
"null"- esli eta zapis" javljaetsja nazvaniem gruppi;
ljuboe zna4enie - esli eta zapis" javljaetsja podgruppoj;
Eto znachenie ravno znacheniju "ID" gruppi;

ID ParentID Name
1 null Group1 -Group1
2 null Group2 +Group2
3 1 SubGroup1 +SubGroup1
4 3 SubGroup2 -SubGroup2
5 3 SubGroup3 -SubGroup3

Pomogite kto mozhet, ili gde hotjabi dostat" horoshuju infu s primerami.
Zaranee Blagodaren!



Demon[DZ]   (2002-02-07 11:20) [1]

oj nebol"shaja ope4atka:)

ID ParentID Name
1 null Group1 -Group1
2 null Group2 +Group2
3 2 SubGroup1 +SubGroup1
4 3 SubGroup2 -SubGroup2
5 3 SubGroup3 -SubGroup3



Demon[DZ]   (2002-02-07 12:34) [2]

Vidimo dejstvitel"no lamerskij vopros, 4to nokto neho4et mne pomoch:(
Ladno budu dal"she s etim komponentom tr........sja



yaJohn   (2002-02-07 13:11) [3]

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
Node: TTreeNode;
begin
TreeView1.Items.Clear;
Query1.First;
while not Query1.Eof do
begin
Node:=nil;
for i:=0 to TreeView1.Items.Count-1 do //takoy poisk krayne neefektiven :( Nujno svoy dumat"
if TreeView1.Items[i].Data=pointer(Query1.FieldByName("ParentID").asInteger)
then Node:=TreeView1.Items[i];
TreeView1.Items.AddChildFirst(Node,Query1.FieldByName("NAME").asString).Data:=pointer(Query1.FieldByName("ID").asInteger);
Query1.Next;
end;
end;

Kak eskiz...



Demon[DZ]   (2002-02-07 13:56) [4]

yaJohn Spasibooooooooooo!
Rabotaet, Thanks!:)




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.024 c
14-79468          Пиноккио              2002-01-08 20:11  2002.02.25  
Термопринтер


1-79377           Song                  2002-02-08 20:10  2002.02.25  
В приведённой ниже процедуре почему-то не работает удаление ключа из реестра (из секции автозапуска). Подскажите почему?


4-79517           AlexandrH_            2001-12-25 09:29  2002.02.25  
Указатель


3-79292           Guest.                2002-01-31 12:36  2002.02.25  
Params в Query


14-79438          White Boy             2002-01-03 21:34  2002.02.25  
Лицензия на Delphi