var i,j:integer; node,nodechild:ttreenode; begin for i:=0 to mainmenu1.Items.Count-1 do begin node:=treeview1.Items.Add(node,mainmenu1.Items[i].Caption); for j:=0 to mainmenu1.Items[i].Count-1 do begin nodechild:=treeview1.Items.AddChild(node,mainmenu1.Items[i].Items[j].Caption); end; end; end;
node,nodechild:ttreenode;
begin
for i:=0 to mainmenu1.Items.Count-1 do
begin
node:=treeview1.Items.Add(node,mainmenu1.Items[i].Caption); for j:=0 to mainmenu1.Items[i].Count-1 do
begin
nodechild:=treeview1.Items.AddChild(node,mainmenu1.Items[i].Items[j].Caption); end;
end;
end;