TMainMenu/ TMenuItem

[ERROR]

hi,

Code:

procedure showFavoriten ;
var
   i : integer ;
   mnuItem : TMenuItem ;
   s : string ;
begin
   for i := 0 to (high(favoriten)-1) do
      begin
         

         // Hier stürzt er mit einem EAccessViolation ab
         mnuItem := TMenuItem.Create(frm_main.mnu_favoriten) ; 
         

         s := favoriten[i] ;
         mnuItem.Caption := s ;
         mnuItem.Name := 'mnu_fav_' + IntToStr(i) ;
         frm_main.mnu_favoriten.Add(mnuItem) ;
       //  frm_main.mnu_favoriten.Add(mnuItem) ;
         mnuItem.Free
      end ;
end ;

wenn ich
mnuItem := TMenuItem.Create(frm_main.mnu_favoriten) ;
durch
mnuItem := TMenuItem.Create(nil) ;
ersetze, wird eine EAccesViolation bei
frm_main.mnu_favoriten.Add(mnuItem) ;
angezeigt.

habe keine ahnung wieso das nciht funzt.
bitte um hilfe

[jim_raynor]

Du solltest mal das mnuItem.Free löschen. Dadurch wird der neuerstellte Eintrag ja sofort wieder gelöscht.