| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Описание структуры [D6, WinXP]

Страницы:   < 1 2 >

webpauk ©   (2006-02-06 15:33:00) 

Господа! Помогите объявить структуру следующего типа:
Item1
  Item1.1
  Item1.2
      Item1.2.1
      Item1.2.2
             Item1.2.2.1
             ...
  Item1.3  
  ...
глубина вложенности структур неизвестна.

---

webpauk   (2006-02-06 15:55:00) [21]

> Digitman ©  

Caption      ID      IDParent
Все           1        0
Тип1         2        3
Тип2         3        1
Тип3         4        3

классический метод отрисовки дерева неправильно отображает представленную таблицу

procedure MakeTree;
var
  I, N: Integer;
begin
  with Form1 do
  begin
  TreeView1.Items.Clear;
  T1.First;
  for I := 1 to T1.RecordCount do
  begin
     if T1['IDParent']=0 then DrawTree(nil)
     else
     begin
        for N := 0 to TreeView1.Items.Count-1 do
        begin
           if Integer(TreeView1.Items[N].Data)=T1['IDParent'] then
           begin
              DrawTree(TreeView1.Items[N]);
           end;
        end;

     end;
     T1.Next;
  end;
  end;
end;

procedure Tform1.DrawTree(Node : TTreeNode);
var
  I: Integer;
begin
  TreeView1.Items.AddChildObject(Node, T1.FieldByName('Nazvanie').AsString, Pointer(T1.FieldByName('ID').AsInteger));
end;


---

Digitman   (2006-02-06 15:51:00) [22]

> которая не сортирована по ID и IDPartner


Что же мешает отсортировать ?

---

Digitman   (2006-02-06 15:49:00) [23]

> вот TtreeView то я и пытаюсь правильно нарисовать


Вот рассказывай, что у тебя неправильно получается ..

А "объявление структуры" здесь ни при чем - речь идет о заполнении TreeView в ран-тайм

---

webpauk   (2006-02-06 15:46:00) [24]

> Desdechado ©   (06.02.06 15:43) [3]
> TTreeView

вот TtreeView то я и пытаюсь правильно нарисовать

---

webpauk   (2006-02-06 15:45:00) [25]

Круто!
вот TtreeView я пытаюсь правильно отрисовать из базы, которая не сортирована по ID и IDPartner

---

Desdechado   (2006-02-06 15:43:00) [26]

TTreeView

---

webpauk   (2006-02-06 15:43:00) [27]

Type
...

---

Digitman   (2006-02-06 15:40:00) [28]

Что значит "объявить" ?

---

Страницы:   < 1 2 >

Наверх