Pasar los datos de un TTreeView a una tabla.

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;