Este ejemplo, lo he tomado de una aplicación propia. Me basé en un ejemplo de Francisco Charte. Al guardar los datos en la tabla (he utilizado Paradox) he introducido un campo “nodo” de tipo caracter, que contendrá el número de nivel del arbol, así el nodo 0 será el primero o raiz, el 1 el segundo, etc.
procedure TFormMenu.GuardarClick(Sender: TObject); var N:byte; begin // nodo -> string ; campo -> Alfanumerico TablaMenus.Active:=True; For N := 0 To Menus.Items.Count -1 Do begin TablaMenus.Append; TablaMenus.fieldbyName('nodo').Text:= InttoStr(Menus.Items[N].level); TablaMenus.fieldbyname('campo').Text:= Menus.Items[N].Text; end; TablaMenus.Post; TablaMenus.Active:=False; end;
Ważne artykuły