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

Вниз

TTreeView&Table   Найти похожие ветки 

← →
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...

---

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

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

Наверх

Память: 0.43 MB
Время: 0.003 c