Developing.ru

Код: Выделить всё

procedure TfmMain.FormShow(Sender: TObject);
var
  i: Integer;
  t: TTreeNode;
begin
  Files := TFileItemList.Create(nil);
//Items: TStringList;
  for i := 0 to Items.Count-1 do
    begin
      t := Tree.Items.Add(nil,Items.Items[i].Name);
      t.HasChildren := False;
    end;
end;

//добавление подэлементов
procedure AddChilds (ParentNode: TTreeNode; Childs: TStringList);
var
  i: Integer;
  t: TTreeNode;
begin
  for i := 0 to Childs.Count-1 do
    begin
      t := Tree.Items.AddChild(ParentNode,Childs.Items[i].Name);
// здесь можно сновая вызвать AddChilds(t,List), чтобы рекурсивно добавить элементы
// тогда свойство t.HasChildren нужно установить в True
      t.HasChildren := False;
    end;
end;