请帮我看看这段代码为什么报错?

Question

请帮我看看这段代码为什么报错?
我在窗体内放了一个mainmenu,想在FormCreate时使一些菜单项无效,下面代码报:Access avialocation(存取错误)!
代码是这样的:
mainmenu1.items.find('增加帐户').enable := false;
mainmenu1.items.find('修改密码').enable := false;
(在线等待......)

Answer 1

也许是主Form的初始化有一定次序，主菜单的初始化在后，而你的语句在前（猜测）。

Answer 2

你在ormCreate的事件中写以下代码就可以了，跟初始化的顺序无关，出现地址异常的原因是find函数返回的是nil，有没有对该情况进行判断
var
  test : TMenuItem;
  i : Integer;
begin
  for I := 0 to mainmenu1.Items.Count - 1 do
  begin
    test := mainmenu1.items[I].find('修改密码');
    if test <> nil then
    test.enabled := false;
  end;
end;