2

我对错误消息“无效的浮点运算”有疑问。弹出菜单是一个设计时控件，它被命名为NavPop. 它没有分配菜单项。它被指定为弹出菜单Panel1。

然后我从列表框中动态创建菜单项，并分配标题和点击事件。就我想要完成的工作而言，一切都 100% 有效。即它有效。

只有当我关闭程序时，我才能得到

无效的浮点运算

或以其他方式：

访问冲突地址 000007355。读取地址 0000007355。

请注意，一切正常，除了我关闭程序时的错误。我将不胜感激任何帮助。

 //  I declare the Array of TMenuItems
 private
    { Private declarations }
    ItemArray : array of TMenuItem;

...    

procedure TMainForm.Button1Click(Sender: TObject);
begin
  CreateNavPop;
end;

//  Create the menu items from listbox(Navlist) items and Link them 
//  to events on a navigation bar.
procedure TMainForm.CreateNavPop;
var
  I:  Integer;
  NavIndex:  Integer;
begin
  SetLength(ItemArray, NavList.Items.Count);
  NavIndex:=0;
  For I:=0 to NavList.Items.Count-1 do
  begin
    NavIndex:=NavBar1.Items.ItemByCaption(NavList.Items.Strings[i]).Index;
    ItemArray[i]:=TMenuItem.create(Nil);
    ItemArray[i].Caption:=NavList.Items.Strings[i];
    ItemArray[i].OnClick:=NavBar1.Items.Items[Navindex].OnClick;
    NavPop.Items.Add(ItemArray[i]);
  end;
end;

//  Call the Items free on program close
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FreeItems(ItemArray);
end;

//  Free Dynamically created Menu Items on Form Close
procedure TMainForm.FreeItems(MItems : array of TMenuItem);
var
  cnt : integer;
begin
  for cnt := High(MItems) downto Low(MItems) do
  begin
    MItems[cnt].Free;
    MItems[cnt] := nil;
  end;
end;
4

1 回答 1

2

发生这种情况是因为 TPopupMenu 已经释放了这些项目，而您正在再次释放它。

此代码导致“无效的指针操作”：

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to 3 do
    PopupMenu1.Items.Add(TMenuItem.Create(nil));
end;

destructor TForm1.Destroy;
var
  I: Integer;
begin
  for I := 3 downto 0 do
    PopupMenu1.Items.Free;
  inherited;
end;

Items 属性是一个 TMenuItem 实例，如果您查看它的析构函数，它已经释放了您添加的所有项目。

destructor TMenuItem.Destroy;
begin
...
  while Count > 0 do Items[0].Free;
...

保持简短，您无需在 FreeItems 方法中再次执行此操作。

我用 ReportMemoryLeaksOnShutdown := True 进行了测试，没有发生内存泄漏。

于 2012-05-22T17:28:59.830 回答