Menü Einträge aus einem TMainMenu löschen

[TBx]

Versuchs mal so:

Delphi-Quellcode:

var 
  i : integer; 
  TheName : String; 
  Item : TMenuItem; 
  comp : TComponent; 
begin 
  for i := 0 to entnr do begin 
    TheName := 'ent' + inttostr(i); 
    Comp := MainMenu1.FindComponent (TheName); 
    if Comp <> nil then // nachgucken, ob Du auch wirklich was gefunden hast
    begin
      if Comp is TMenuItem then // ist das auch wirklich ein Menuitem?
      begin
        Item:= Comp as TMenuItem; 
        Item.Clear; 
        Item.Free;
      end; 
    end; 
  end; 
end;

Hope it helps

Thomas

PS: Habe Deinen Code ohne Test geändert