メインメニューのアイテム（サブアイテムを含む）を繰り返す

Question

すべてのメインメニューのアイテムを繰り返し処理しようとしています。問題はサブメニュー項目から始まります。 Menu.Items [i] .Items [j] .Items [k]のような構造は、操作が簡単ではありません。そのための方法はありますか？

---

私の目標は、すべての項目のキャプションを一覧表示することです。

Answer 1

あなたはこのコードそう

procedure TForm1.ProcessMenu(AMenu: TMenuItem); 
var 
    i: integer; 
begin 
    for i := 0 to AMenu.Count - 1 do 
    begin 
    Memo1.Lines.Add(AMenu[i].Caption); 
    ProcessMenu(AMenu[i]); 
    end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    ProcessMenu(MainMenu1.Items); 
end; 

Answer 2

使用のような再帰関数を使用することができます。

USES Menus; 

TYPE TItemArr = ARRAY OF TMenuItem; 

FUNCTION AllItems(MainMenu : TMainMenu) : TItemArr; 
    VAR 
    I : Cardinal; 

    PROCEDURE Parse(VAR Result : TItemArr ; Item : TMenuItem); 
    VAR 
     I : Cardinal; 

    BEGIN 
     SetLength(Result,SUCC(LENGTH(Result))); 
     Result[HIGH(Result)]:=Item; 
     FOR I:=1 TO Item.Count DO Parse(Result,Item.Items[PRED(I)]) 
    END; 

    BEGIN 
    SetLength(Result,0); 
    FOR I:=1 TO MainMenu.Items.Count DO Parse(Result,MainMenu.Items[PRED(I)]) 
    END; 

としてそれを使用してください：反復の目標は何である

VAR MI : TMenuItem; 
FOR MI IN AllItems(MainMenu) DO ProcessMenuItem(MI);