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
