Создание меню опираясь на ini

[Shouldercannon]

Доброго времени суток! Создаю меню, опираясь на данные INI-файла

...
type
  TExtensionsArray = record
    sFile: string;
    sPath: string;
    Hash: string;
    iMenuItem: Integer;
    MenuItemCaption: string;
    iSubMenuItem: Integer;
    SubMenuItemCaption: string;
  end;

var
  FormMain: TFormMain;
  ExtensionsArray: array of TExtensionsArray;
...
procedure TFormMain.FormCreate(Sender: TObject);
var
  SL: TStringList;
  INIFile: TINIFile;
  i, i2: Integer;
  Item: TMenuItem;
begin
  SL := TStringList.Create;
  INIFile := TINIFile.Create(ExtractFilePath(Application.ExeName) + ExtensionsFile);
  INIFile.ReadSections(SL);

  SetLength(ExtensionsArray, 0);

  for i := 0 to SL.Count - 1 do
  begin
    i2 := High(ExtensionsArray) + 2;
    SetLength(ExtensionsArray, i2);
    ExtensionsArray[i2 - 1].sFile := SL.Strings[i];
    ExtensionsArray[i2 - 1].sPath := INIFile.ReadString(SL[i], 'Path', '');
    ExtensionsArray[i2 - 1].Hash := INIFile.ReadString(SL[i], 'Hash', '');
    ExtensionsArray[i2 - 1].iMenuItem := INIFile.ReadInteger(SL[i], 'MenuItem', 0);
    ExtensionsArray[i2 - 1].MenuItemCaption := INIFile.ReadString(SL[i], 'MenuItemCaption', '');
    ExtensionsArray[i2 - 1].iSubMenuItem := INIFile.ReadInteger(SL[i], 'SubMenuItem', 0);
    ExtensionsArray[i2 - 1].SubMenuItemCaption := INIFile.ReadString(SL[i], 'SubMenuItemCaption', '');
  end;

  FreeAndNil(SL);
  FreeAndNil(INIFile);

  for i := 0 to Length(ExtensionsArray) - 1 do
  begin
    // Добавление Item
    Item := TMenuItem.Create(Self); // Создаём новый Item
    Item.Caption := ExtensionsArray[i].MenuItemCaption; // Задаём описание Item
    Item.ImageIndex := 3; // Присваиваем картинку Item
    if ExtensionsArray[i].SubMenuItemCaption = '' then Item.OnClick := MyClick; // Назначаем процедуру Item
    MainMenu.Items[ExtensionsArray[i].iMenuItem].Add(Item); // Добавляем Item
    // Добавление SubItem
    if ExtensionsArray[i].SubMenuItemCaption <> '' then
    begin
      Item := TMenuItem.Create(Self); // Создаём новый Item
      Item.Caption := ExtensionsArray[i].SubMenuItemCaption; // Задаём описание Item
      Item.ImageIndex := 3; // Присваиваем картинку Item
      Item.OnClick := MyClick; // Назначаем процедуру Item
      MainMenu.Items[ExtensionsArray[i].iMenuItem].Items[ExtensionsArray[i].iSubMenuItem].Add(Item); // Добавляем Item
    end;
  end;
end;

PHP код:

[1.bat]
Path=1\
Hash=
MenuItem=2
MenuItemCaption=Общее
SubMenuItem=0
SubMenuItemCaption=Общее 100
[2.bat]
Path=2\
Hash=
MenuItem=2
MenuItemCaption=Система
SubMenuItem=1
SubMenuItemCaption=Система 200
[3.bat]
Path=3\
Hash=
MenuItem=2
MenuItemCaption=Система
SubMenuItem=1
SubMenuItemCaption=Система 300
[4.bat]
Path=4\
Hash=
MenuItem=2
MenuItemCaption=Разное
SubMenuItem=
SubMenuItemCaption= 


Получаю эффект дублеката пунктов меню, если для одного пункта меню имеется несколько подпунктов.
Как избежать этого эффекта?

[Stilet]

Мне кажется что лучше делать не так.
Я бы сделал так:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses  inifiles,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus;

type

  { TForm1 }

  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var i:TIniFile;

 procedure addmenu(section:String;mitm:TMenuItem);
 var st:TStringList;  j:integer; itm:TMenuItem;
 begin
   st:=TStringList.Create;
    i.ReadSectionValues(section,st);
    //if mitm=nil then mitm;
    for j:=0 to st.Count-1 do begin
      itm:=TMenuItem.Create(mitm);
      itm.Caption:=st.ValueFromIndex[j];
      if mitm=nil then MainMenu1.Items.Add(itm)
      else mitm.Add(itm);
      addmenu(st.ValueFromIndex[j],itm);
    end;
   st.Free;
 end;

begin
  i:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'menu.ini');
   addmenu('main',nil);
  i.free;
end;

end.

И ИНИ файл:

[main]
1=система
2=Разное
[система]
1=подсистема1
2=подсистема=2
[Разное]
1=Разное1
2=Разное2
[Разное1]
1=Разное11
2=Разное12

т.е. подменюшки в отдельные секции с именами родительских элементов.
ИМХО проще будет.

И массив динамический зачем там вообще?

[evg_m]

проверять наличие родителя по его идентифицирующим свойствам задаваемым в файле.(Caption ???)

function FindItem(.....): TMemuItem;
begin
  for j:=0 to 
end;

for j:=0 to ...
  item:=FindItem(...);
  if item=nil then begin
    item:=TmeniItem.Create....
  end;
  end;

[Shouldercannon]

Сообщение от Stilet

И массив динамический зачем там вообще?

Массив нужен для поиска выбранного пункта меню и запуска соответствующего файла, найденного по этому пункту

[Stilet]

Тогда тебе нужен не массив а дерево объектов, которые будут хранить эти параметры, считанные из ИНИ файла.

[Shouldercannon]

Решение с devshed, хорошие люди функцией поделились

function TFPrincipal.ProcuraItem(menuG: TMenuItem; str: String): TMenuItem;
var
  j: Integer;
  item,itemAux: TMenuItem;
  teste: String;
begin
  j:=0;

  //first level
  item:= menuG.Find(str);
  if item <> nil then
  begin
      //ShowMessage('find in the first level');
      Result:= item;
      Exit;
  end;

  //sub-levels
  while j < menuG.Count do
  begin

    teste := menuG.Items[j].Caption;

    item:= menuG.Items[j].Find(str);
    if item <> nil then
    begin
      //ShowMessage('find in the midle');
      //ShowMessage(item.Caption);
      Result:= item;
      Exit;
    end;

    itemAux :=  ProcuraItem(menuG.Items[j],str);
    //ShowMessage(item.Caption);
    if itemAux <> nil then
    begin
        Result := itemAux;
        Exit;
    end;
    Inc(j);
  end;

  //if not found, return nil
  Result:= nil;
end;

[Stilet]

Решение с devshed

Но это поиск а не наполнение...
Или я чегоент непонимайтен?

[Shouldercannon]

Задача заключалась в недопускании создания дублекатов пунктов меню при моей реализации построения меню

[Человек_Борща]

ИМХО, для Меню нужно использовать что-то из разряда сериализации, типа JSON или XML.