| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TTreeView&Table
Demon[DZ] © (2002-02-07 11:16:00)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 13:56:00) [1]yaJohn Spasibooooooooooo!
Rabotaet, Thanks!:)
yaJohn (2002-02-07 13:11:00) [2]
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 12:34:00) [3]Vidimo dejstvitel"no lamerskij vopros, 4to nokto neho4et mne pomoch:(
Ladno budu dal"she s etim komponentom tr........sja
Demon[DZ] (2002-02-07 11:20:00) [4]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
| |
