Question

delphi的一个简单的创建菜单项的例子，不理解！！！

procedure TForm1.Button1Click(Sender: TObject);
var
cd:TMainMenu;
ff:TMenuItem;
cdx:TMenuItem;
k:Integer;
begin
cd:=TMainMenu.Create(Self);
ff:=TMenuItem.Create(Self);
ff.Caption:='File';
cd.Items.Add(ff);
for k:=1 to 4 do
cdx[k]:=TMenuItem.Create(Self);
cdx[1].Caption:='New';
cdx[2].Caption:='Open';
cdx[3].Caption:='Copy';
cdx[4].Caption:='Exit';
for k:=1 to 4 do
cd.Items[0].Add(cdx[k]);
end;

end.
========================================
for k:=1 to 4 do
cd.Items[0].Add(cdx[k]); 这个请详解！！！
end;
Add是在items的末尾在添加一个菜单项，那直接cd.items.Add（cdx[K]）;不就好了！加个0是干嘛？？？索引号？？？还是这个是代表在主菜单的第一个项里添加？
刚开始学编程，感觉总是不会灵活的应用这些函数啊变量啊，去写出例子那样的代码！！！！！！很苦恼！！！

Answer 1

我不清楚你有没有运行过这个代码，应该是错的，最主要的错误cdx的定义应该是
cdx:array[1..4] of TMenuItem;

至于你后面那个为什么要写cd.Items[0].Add，是因为cdx是做为ff的下级菜单添加的，所以添加的时候就要指定明cd（即主菜单）下的第几个菜单项（上面的ff即"file"那一项是第一个添加的，序号就是0），运行之后点file，才会看到new.open这些，如果改做cd.Items.Add，虽然不会报错，但是会出现file、new、open、copy平级的五个菜单项。你可以测试下，比如代码改成下面的会是什么样的

cd:=TMainMenu.Create(Self);
ff:=TMenuItem.Create(Self);
ff.Caption:='File';
cd.Items.Add(ff);

ff:=TMenuItem.Create(Self);
ff.Caption:='Edit';
cd.Items.Add(ff);

for k:=1 to 4 do
cdx[k]:=TMenuItem.Create(Self);
cdx[1].Caption:='New';
cdx[2].Caption:='Open';
cdx[3].Caption:='Copy';
cdx[4].Caption:='Exit';
for k:=1 to 4 do
cd.Items[1].Add(cdx[k]);