delphi 遍历菜单

遍历主菜单及子菜单：

运行结果如下

代码如下

procedure TForm1.Button1Click(Sender: TObject);
var
i,k:integer;
begin
     memo1.Lines .clear;
     for i:=0 to mainmenu1.items.count-1 do
        begin
             memo1.Lines .add(#13)  ;
             memo1.Lines .add(mainmenu1.items.items[i].Caption);
              memo1.Lines .add('')  ;
             for k:=0 to mainmenu1.items.items[i].Count-1 do
                begin
                if  mainmenu1.items.items[i].items[k].caption<>'-' then
                  memo1.Lines .add(mainmenu1.items.items[i].items[k].caption);
                end;
       end;

end;
研究他人软件代码时，如果需要把菜单内容提出来，就直接用上面的代码就行