[Romix]

Доброе время суток, уважаемы форумчане. Возникла необходимость заполнить главное меню найденными директориями с их субдиректориями. Директорий будет немного. Непонятным чудом пришёл к такому коду(сильно не пинайте)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure SearchDirectory(MainMenu: TMainMenu; I: Int32; Directory: String); var MenuItem: TMenuItem;   SearchRec: TSearchRec; begin   if FindFirst(Directory + '*.*', faDirectory, SearchRec) = 0 then     Repeat       if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') and         ((SearchRec.Attr and faDirectory) = faDirectory) then       begin       MenuItem:=TMenuItem.Create(MainMenu);       MenuItem.Caption:=SearchRec.Name;         MainMenu.Items[i].Add(MenuItem);         SearchDirectory(MainMenu, I + 1, Directory + SearchRec.Name + '\');       end;     Until FindNext(SearchRec) <> 0;   FindClose(SearchRec); end;

Вызываю процедуру так

Код:

1	SearchDirectory(MainMenu, 0, '');

Наставьте неуча на путь истинный. Как правильно сделать рекурсию, что бы подпункты MainMenu тоже заполнялись?

[Romix]

После некоторых изысканий удалось получить следующее:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

procedure SearchDirectory(MainMenu: TMainMenu; MenuItem: TMenuItem; Level: Int32;   Directory: String); var   SubMenuItem: TMenuItem;   SearchRec: TSearchRec; begin   if FindFirst(Directory + '*.*', faDirectory, SearchRec) = 0 then     Repeat       if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') and         ((SearchRec.Attr and faDirectory) = faDirectory) then       begin         if Level = 0 then         begin           MenuItem := TMenuItem.Create(MainMenu);           MenuItem.Caption := SearchRec.Name;           MainMenu.Items[0].Add(MenuItem);           SearchDirectory(MainMenu, MenuItem, Level + 1,             Directory + SearchRec.Name + '\')         end         else         begin           SubMenuItem := TMenuItem.Create(MainMenu);           SubMenuItem.Caption := SearchRec.Name;           MenuItem.Insert(0, SubMenuItem);           SearchDirectory(MainMenu, SubMenuItem, Level + 1,             Directory + SearchRec.Name + '\')         end;       end;     Until FindNext(SearchRec) <> 0;   FindClose(SearchRec); end;

Может можно это как-то оптимизировать?

[lmikle]

Ну, если нигде не накосячил, то как то так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

procedure SearchDirectory(Menu: TMainMenu; MenuItem: TMenuItem; Directory: String); var   NewItem: TMenuItem;   SearchRec: TSearchRec; begin   if FindFirst(IncludeTrailingPathDelimiter(Directory) + '*.*', faDirectory, SearchRec) = 0 then     Repeat       if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') and         ((SearchRec.Attr and faDirectory) <> 0) then       begin           NewItem := TMenuItem.Create(Menu);           NewItem.Caption := SearchRec.Name;           If MenuItem = Nil             Then Menu.Items.Add(NewItem)             Else MenuItem.Items.Add(NewItem);           SearchDirectory(MainMenu, NewItem, Directory + SearchRec.Name)       end;     Until FindNext(SearchRec) <> 0;   FindClose(SearchRec); end;   ... SearchDirectory(Form1.MainMenu1, Nil, 'c:/work'); ...

[Romix]

Всем большое спасибо! Вот так всё работает:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

procedure Fill_MainMenu(MainMenu: TMainMenu; MenuItem: TMenuItem;   Directory: String); var   SubMenuItem: TMenuItem;   SearchRec: TSearchRec; begin   if FindFirst(Directory + '\' + '*.*', faDirectory, SearchRec) = 0 then     Repeat       if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') and         ((SearchRec.Attr and faDirectory) = faDirectory) then       begin         SubMenuItem := TMenuItem.Create(nil);         SubMenuItem.Caption := SearchRec.Name;           if MenuItem = nil Then           MainMenu.Items[0].Add(SubMenuItem)         else           MenuItem.Insert(0, SubMenuItem);           Fill_MainMenu(MainMenu, SubMenuItem,           Directory + SearchRec.Name + '\');       end;     Until FindNext(SearchRec) <> 0;   FindClose(SearchRec); end;