Как объединить создание объектов в двухмерный цикл

[Kronos913]

   VF1_Bt8_PPM_Main:=TPopupMenu.Create(self);
   For i:=VF1_PPM_Zero to VF1_Bt8_PPM_Last do begin
     VF1_Bt8_PPM_01[i]:=TMenuItem.Create(self);
     VF1_Bt8_PPM_Main.Items.Add(VF1_Bt8_PPM_01[i]);
     VF1_Bt8_PPM_01[i].Caption:=VF1_Bt8_Names[i];
     VF1_Bt8_PPM_01[i].Tag:=i;
     VF1_Bt8_PPM_01[i].RadioItem:=true;
     VF1_Bt8_PPM_01[i].OnClick:=VF1_Bt8_PPM_01Click;
   End;
   VF1_Bt8_PPM_01[0].Checked:=true;

   VF1_Bt9_PPM_Main:=TPopupMenu.Create(self);
   For i:=VF1_PPM_Zero to VF1_Bt9_PPM_Last do begin
     VF1_Bt9_PPM_01[i]:=TMenuItem.Create(self);
     VF1_Bt9_PPM_Main.Items.Add(VF1_Bt9_PPM_01[i]);
     VF1_Bt9_PPM_01[i].Caption:=VF1_Bt9_Names[i];
     VF1_Bt9_PPM_01[i].Tag:=i;
     VF1_Bt9_PPM_01[i].RadioItem:=true;
     VF1_Bt9_PPM_01[i].OnClick:=VF1_Bt9_PPM_01Click;
   End;
   VF1_Bt9_PPM_01[0].Checked:=true;

   VF1_ChB2_PPM_Main:=TPopupMenu.Create(self);
   For i:=VF1_PPM_Zero to VF1_ChB2_PPM_Last do begin
     VF1_ChB2_PPM_01[i]:=TMenuItem.Create(self);
     VF1_ChB2_PPM_Main.Items.Add(VF1_ChB2_PPM_01[i]);
     VF1_ChB2_PPM_01[i].Tag:=i;
     VF1_ChB2_PPM_01[i].RadioItem:=true;
     VF1_ChB2_PPM_01[i].Caption:=VF1_ChB2_Names[i];
     VF1_ChB2_PPM_01[i].OnClick:=VF1_ChB2_PPM_01Click;
   end;
   VF1_ChB2_PPM_01[0].Checked:=true;

Суть кода вот в чем: создаются три менюшки. У всех идентичный принцип работы, но у всех разная длина массива. Код активации идентичен

Вопрос: как объединить все это в один двухмерный цикл?

[Kronos913]

Единственная идея, которая мне приходит на ум - это двухмерный массив
Но проблема в том, что там будет куча пустых ячеек тогда

Или, может быть, есть возможность сделать двухмерный массив, так чтобы в "строках" массива было разное число элементов?

[evg_m]

procedure CreateSubMenu(parent: TMenuItem; listmenu: array of string; onclick: TNotifyItem);
begin
   for j:=low(listmenu) to high(listmenu) do begin
     r:=TMenuItem.create(..);
     r.caption:=listmenu[j];
     r.onClick:=onclick;
   end;
end;

item1:=TMenuItem.Create;
SubMenu(item1, ['1', '2', '3' ], self.OnClickMenu);
item2:=TMenuItem.Create;
SubMenu(item2, ['1', '6'     ], self.OnclickMenu );

[Kronos913]

Спасибо, заработало! Вот такой вот код получился:

type
  ProcedureClick=procedure(Sender: TObject) of object;

Procedure MakeMenuItem(PPM:TMenu; const Captions: array of string; Proc:ProcedureClick; RadioItems: boolean);
  var
    j:integer;
    MI:TMenuItem;
begin
    For j:=low(Captions) to high(Captions) do begin
      MI:=TMenuItem.Create(nil);
      PPM.Items.Add(MI);
      MI.Tag:=j;
      MI.Caption:=Captions[j];
      MI.RadioItem:=RadioItems;
      MI.OnClick:=Proc;
    end;
end;

PopupMenu, или верхнюю строчку MainMenu наполняет на ура
Теперь у меня еще один вопрос: как сделать так, чтобы при помощи этой же процедуры можно было наполнять под-пункты?

[evg_m]

1. КАК-то усложнить передаваемый массив. (array of record).
2. Заполнять каждый из элементов меню в ещё одном цикле
3. записать иерархию меню в ресурсах программы (текстовый файл)
и создавать РЕКУРСИВНОЙ процедурой.