很多编辑器都有打开历史记录这一项,那个菜单是怎样动态生成的?

Question

我所问的是指菜单的动态生成

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  a:TMenuItem;
begin
  a:=TMenuItem.Create(application);
  a.Caption:='打开过的文件名‘；
  MainMenu1.Items[0].Add(a);
end;

Answer 2

动态菜单生成的方法
比如你本身有一个nFiles菜单条
Var
  M: TMenuItem;
begin
  M:= TMenuItem.Create(Self);
  M.Caption:= 'TEST';
  nTable.Add(M);
end;

Answer 3

我的历史记录数是不确定的,假如是5条的话,那就需要新建5个TMenuItem,假如是10条的话,那就需要新建10个TMenuItem,我用了另一个变量来存放到倒需新建多少条记录数,并依据这个变量来循环新建TMenuItem,这个循环该样写?或怎样动态新建n个TMenuItem变量?