델파이 비동기식으로 생성 된 팝업 메뉴 항목 - 잘못된 포인터 연산/액세스 위반

Question

"잘못된 부동 소수점 연산"오류 메시지에 문제가 있습니다. 팝업 메뉴는 디자인 타임 컨트롤이고 이름은 NavPop입니다. 메뉴 항목이 할당되어 있지 않습니다. Panel1에 대한 팝업 메뉴로 지정됩니다.

그런 다음 목록 상자에서 메뉴 항목을 동적으로 만들고 캡션 및 클릭 이벤트를 할당합니다. 모든 것은 내가 성취하려고 노력하는 관점에서 100 % 작동합니다. 즉 작동합니다. Addrss 0000007355.

의

액세스 위반 주소 000007355. 읽기 : 내가 프로그램을 닫을 때

만, 내가

잘못된 부동 소수점 연산

또는 기타를받을 수 있나요

프로그램을 닫을 때의 오류를 제외하고는 모든 것이 완벽하게 작동한다는 점에 유의하십시오. 나는 어떤 도움을 주셔서 감사합니다.

// 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; 

Answer 1

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; 

항목 속성은 TMenuItem 인스턴스이며, 당신이 그것을 보면 소멸자, 그것은 모든 항목이 이미 무료 당신은 덧붙였다.

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

간단히 말하면 FreeItems 메서드에서 다시 할 필요가 없습니다.

ReportMemoryLeaksOnShutdown : = True로 테스트하여 메모리 누수가 발생하지 않았습니다.