1:
2:
3:
4:
5:

Test0\Test1
Test0\Test2
Test1\Test2
Test2\Test3\Test4
Test2\Test0					

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:
32:
33:
34:
35:
36:
37:

procedure TForm1.LoadTool;
var
  Tools:TStringList;
  i,x:Integer;
  str:String;
  Menu:TMenuItem;
  SubMenu:TmenuItem;
begin
  tools:=TStringList.Create;
  tools.LoadFromFile(GetExeDir + 'config\tools1.txt');

  for i:=0 to tools.count-1 do begin
    str:=tools[i];
    Menu:=TMenuItem.Create(Self);
    SubMenu:=TMenuItem.Create(Self);

    Menu.Caption:=GetToken(str,'\',1);

    if tools1.Find(Menu.Caption) = NIL then tools1.Add(menu);
  end;

  for i:=0 to tools.count-1 do begin
    str:=tools[i];
    Menu:=TMenuItem.Create(Self);
    SubMenu:=TMenuItem.Create(Self);

    for x:=1 to NumToken(str,'\') do begin
      Menu.Caption:=GetToken(str,'\',1);

      if tools1.Find(Menu.Caption) <> NIL then begin
        SubMenu:=tools1.Find(Menu.Caption);
        SubMenu.Add(menu);
       end;
     end;
  end;

end;					

1:
2:
3:
4:
5:

Test0 --> Test1
          Test2
Test1 --> Test2
Test2 --> Test3 --> Test4
          Test0					

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:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

// kann sein, dass das in neuen Delphi-Versionen anders
// ist, aber D5 kennt den Typ "TStringDynArray" nicht,
// der von "Explode" benutzt wird.
// Darum hab´ ich´s als String-Array deklariert.
type
  TStringDynArray = array of string;
// Kann auch sein, dass ich die Deklaration im Beitrag
// von jbg übersehen habe. :oops:


// Explode-Funktion hier einfügen (s. Link)


procedure TForm1.Button1Click(Sender: TObject);
var
  sl      : TStringList;
  i,
  j       : integer;
  str     : TStringDynArray;
  menu,
  submenu : TMenuItem;
begin
  sl := TStringList.Create;
  if(sl <> nil) then try
    sl.LoadFromFile(ExtractFilePath(paramstr(0)) + 'tools1.txt');
    if(sl.Count > 0) then
      for i := 0 to sl.Count - 1 do begin
        str := Explode('\',sl[i]);

        if(length(str) > 0) then begin
          // Eintrag auf oberster Ebene
          menu           := tools1.Find(str[0]);
          if(menu = nil) then begin
            menu         := TMenuItem.Create(tools1);
            menu.Caption := str[0];

            tools1.Add(menu);
          end;

          // untergeordnete Einträge
          if(length(str) > 1) then
            for j := 1 to length(str) - 1 do begin
              submenu           := menu.Find(str[j]);
              if(submenu = nil) then begin
                submenu         := TMenuItem.Create(menu);
                submenu.Caption := str[j];

                menu.Add(submenu);
              end;

              menu := submenu;
            end;
        end;
      end;
  finally
    sl.Free;
  end;
end;