Скрипты, рекурсия и SQLQuery()

// рекурсия -
function LoadMenu(miParent: TMenuItem; idParent: integer):integer;
var
  Results: TDataSet;
  miChild: TMenuItem;
  sForm: string;
  index: integer;
  i: integer;
begin
  if idParent = -1 then
    SQLQuery('SELECT main_menu.id, main_menu.name, main_menu.form FROM main_menu '+
    'left join menu_roles on menu_roles.id_main_menu = main_menu.id '+
    'WHERE (main_menu.id_parent is null) and (menu_roles.id_roles='+inttostr(RoleID)+') order by orderNum desc', Results)
  else
    SQLQuery('SELECT main_menu.id, main_menu.name, main_menu.form FROM main_menu '+
    'left join menu_roles on menu_roles.id_main_menu = main_menu.id '+
    'WHERE (main_menu.id_parent='+inttostr(idParent)+') and (menu_roles.id_roles='+inttostr(RoleID)+') order by orderNum', Results);
  while not Results.Eof do
  begin
    miChild := TMenuItem.Create (frmMain.MainMenu);
    if idParent = -1 then
      frmMain.MainMenu.Items.Insert(0, miChild)
    else
      miParent.Add(miChild);
    miChild.Caption := Results.FieldByName('name').AsString;
    sForm := Results.FieldByName('form').AsString;
    // к пункту меню привязана либо форма, либо вложенные пункты меню
    if sForm<>'' then
    begin
      miChild.OnClick := @MenuItemClick;
      index := FormList.IndexOf(sForm);
      if index>=0 then
        miChild.Tag := index
      else
      begin
        ShowMessage('Wrong form name: '+sForm)
      end
    end
    else
    begin
      result := LoadMenu( miChild , Results.FieldByName('id').AsInteger );
    end;
    Results.Next;
  end;
end;

function load(var A:integer):integer;
var
  i: integer;
begin
  i := A;
  if A<5 then
    result := load(A+1) + i
  else
    result := A;
end;

begin
  ShowMessage('Recursive = '+inttostr(load(1)));
end.

// загрузка за один присест
procedure LoadMenu;
var
  Results: TDataSet;
  // до 10 уровней вложенности меню!
  ParentList: array[0..9] of TMenuItem;
  miChild: TMenuItem;
  sForm: string;
  iCurLevel: integer;
  index: integer;
  s: string;
begin
  S :='SELECT main_menu.name, main_menu.form, main_menu.level FROM main_menu '+
    'left join menu_roles on menu_roles.id_main_menu = main_menu.id '+
    'WHERE (menu_roles.id_roles='+inttostr(RoleID)+') order by level';
  SQLQuery(S,Results);
  while not Results.Eof do
  begin
    sForm := Results.FieldByName('form').AsString;
    iCurLevel := length(Results.FieldByName('level').AsString)-1;
    miChild := TMenuItem.Create (MainMenu);
    if iCurLevel = 0 then
    begin
      MainMenu.Items.Add(miChild);
    end
    else
    begin
      TMenuItem(ParentList[iCurLevel-1]).Add(miChild)
    end;
    ParentList[iCurLevel] := miChild;
    //
    miChild.Caption := Results.FieldByName('name').AsString;
    // к пункту меню привязана либо форма, либо вложенные пункты меню
    if sForm<>'' then
    begin
      miChild.OnClick := @MenuItemClick;
      index := FormList.IndexOf(sForm);
      if index>=0 then
        miChild.Tag := index
      else
      begin
        ShowMessage('Wrong form name: '+sForm)
      end
    end;
    Results.Next;
  end;
end;