자꾸 이거 가지구 질문해서 .......
워낙에 몰라서요 꼭 만들고 싶은것은 있구해서
만약에 메인메뉴 -> 서브메뉴 -> 서브메뉴 그러니깐 3번째 메뉴를 어떻게
생성을 해야 하나요.. 숫자만 바꾸면 될줄 알았는데 전혀 않되네요
그리고 서브메뉴에서 클릭시 어떤 원하는 프로그램 실행 시킬려구 하면 어떻게 해야 하는지요... ㅋㅋ 지송 고수님들 부탁 드립니다. 만들고 싶은 것은 있는디 워낙에 실력이 딸려서요....

어기에서 3번과 4번 서브메뉴를 만들려고 하면 어떻게 해야 하나요!!!!
부탁드립니다.


procedure TMenuForm.Button1Click(Sender: TObject);
var
  mainmenu:TMainMenu;
  MainItems, SubItems :array of TMenuItem;
  MenuItemsFile: TextFile;
  ItemsString:String;
  FirstChar:byte;
  MainItemsCount,SubItemsCount:word;
begin
  assignFile(MenuItemsFile,"MenuItems.txt");
  {$i-}
  reset(MenuItemsFile);
  {$i+}
  if IOResult<>0 then begin
    messageDlg("메뉴아이템 파일에 이상이 있습니다."#13#13"확인 바랍니다",mtError,[mbOK],0);
    exit
  end;
  MainItemsCount:=0;
  repeat
    readln(menuItemsFile,ItemsString);
    FirstChar:=strtointdef(copy(ItemsString,1,1),0);
    case FirstChar of
      1:
        begin
          SubItemsCount:=1;
          inc(MainItemsCount);
          setLength(MainItems,MainItemsCount);
          MainItems[MainItemsCount-1]:=TMenuItem.Create(self);
          MainItems[MainItemsCount-1].Name:=format("a%d",[MainItemsCount]);
          MainItems[MainItemsCount-1].Caption:=copy(ItemsString,2,length(ItemsString));
        end;
      2:
        begin
          setLength(SubItems,SubItemsCount);
          SubItems[SubItemsCount-1]:=TMenuItem.Create(self);
          SubItems[SubItemsCount-1].Name:=format(chr(MainItemsCount+66)+"%d",[SubItemsCount]);
          SubItems[SubItemsCount-1].Caption:=copy(ItemsString,2,length(ItemsString));
          MainItems[MainItemsCount-1].Add(SubItems[SubItemsCount-1]);
          inc(SubItemsCount);
        end;
    end;
  until eof(MenuItemsFile);

  closeFile(MenuItemsFile);

  MainMenu:=TmainMenu.Create(MenuForm);
  MainMenu.AutoHotkeys:=maManual;
  MainMenu.Items.Add(MainItems);
end;

메뉴정보파일
1파일(&F)
2새로만들기(&N)
2열기(&O)
2저장(&S)
2다른이름으로 저장(&A)
2-
2페이지 설정(&U)
2인쇄(&P)
2-
2끝내기(&X)
1편집(&E)
2실행취소(&U)
2잘라내기(&T)
2복사(&C)
2붙여넣기(&P)
2삭제(&L)
2-
2찾기(&F)
2다음찾기(&N)
2바꾸기(&R)
2이동(&G)
2-
2모두선택(&A)
2시간/날짜(&D)
1서식(&O)
2자동줄바꿈(&W)
2글꼴(&F)
1보기(&V)
2상태표시줄(&S)
1도움말(&H)
2도움말 항목(&H)
2-
2메모장 정보(&A)

SubItems1 :array of TMenuItem;


처럼 배열을 더 만드시고

      3:
        begin
          setLength(SubItems1,SubItemsCount1);
          SubItems1[SubItemsCount1-1]:=TMenuItem.Create(self);
          SubItems1[SubItemsCount1-1].Name:=format(chr(SubItemsCount+66)+'%d',[SubItemsCount1]);
          SubItems1[SubItemsCount1-1].Caption:=copy(ItemsString,2,length(ItemsString));
          SubItems[SubItemsCount1-1].Add(SubItems1[SubItemsCount1-1]);
          inc(SubItemsCount1);
       end;

case 문에  추가 하시면 아마도 될껍니다..
조금만 구문을 보시면 아실텐데 ㅠ_ㅠ
물론 데이터 파일에도 3 4 이런식으로 서브 메뉴를 만들어야 겠죠.. ^^

하르는 데로 하고 SubItemsCount1-1도 추가하고
메뉴파일에는 2다음에 3을 써서 해보앗는데 에러가 나네요
부탁드리빈다.

음 생각해 보니
아마도
2 :
이 부분에
   SubItemsCount1 := 1;

을 추가해야 할꺼 같네요.. ^^

아마도 이게 빠져서 일 듯 ^^

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Menus;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  mainmenu:TMainMenu;
  MainItems, SubItems, SubItems1  :array of TMenuItem;
  MenuItemsFile: TextFile;
  ItemsString:String;
  FirstChar:byte;
  MainItemsCount,SubItemsCount,SubItemsCount1:word;
begin
  assignFile(MenuItemsFile,'MenuItems.txt');
  {$i-}
  reset(MenuItemsFile);
  {$i+}
  if IOResult<>0 then begin
    messageDlg('메뉴아이템 파일에 이상이 있습니다.'#13#13'확인 바랍니다',mtError,[mbOK],0);
    exit
  end;
  MainItemsCount:=0;
  repeat
    readln(menuItemsFile,ItemsString);
    FirstChar:=strtointdef(copy(ItemsString,1,1),0);
    case FirstChar of
      1:
        begin
          SubItemsCount:=1;
          inc(MainItemsCount);
          setLength(MainItems,MainItemsCount);
          MainItems[MainItemsCount-1]:=TMenuItem.Create(self);
          MainItems[MainItemsCount-1].Name:=format('a%d',[MainItemsCount]);
          MainItems[MainItemsCount-1].Caption:=copy(ItemsString,2,length(ItemsString));
        end;
      2:
        begin
          SubItemsCount1:=1;
          setLength(SubItems,SubItemsCount);
          SubItems[SubItemsCount-1]:=TMenuItem.Create(self);
          SubItems[SubItemsCount-1].Name:=format(chr(MainItemsCount+66)+'%d',[SubItemsCount]);
          SubItems[SubItemsCount-1].Caption:=copy(ItemsString,2,length(ItemsString));
          MainItems[MainItemsCount-1].Add(SubItems[SubItemsCount-1]);
          inc(SubItemsCount);
        end;

       3:
        begin
          setLength(SubItems1,SubItemsCount1);
          SubItems1[SubItemsCount1-1]:=TMenuItem.Create(self);
          SubItems1[SubItemsCount1-1].Name:=format(chr(SubItemsCount+66)+'%d',[SubItemsCount1]);
          SubItems1[SubItemsCount1-1].Caption:=copy(ItemsString,2,length(ItemsString));
          SubItems[SubItemsCount1-1].Add(SubItems1[SubItemsCount1-1]);
          inc(SubItemsCount1);
       end;



    end;
  until eof(MenuItemsFile);

  closeFile(MenuItemsFile);

  MainMenu:=TmainMenu.Create(Form1);
  MainMenu.AutoHotkeys:=maManual;
  MainMenu.Items.Add(MainItems);
end;

ㅋㅋㅋ
님 넘 감사합니다.
너무나도 큰 실수 했네요
전 메뉴 컴포넌트를 그냥 넣어 버렸어요
소스를 보니 이제 이해가 가네요....
넘 감사합니ㅏㄷ.

제가 델파이 5.0으로 작성해서 메일로 보냈습니다.

메일 확인 하시고요..

여기 첨부가 안돼는거 같네요..

그럼 확인하시고 즐거운 프로그래밍 하시길 빕니다.. ^^