Acceder al data de un treeview

[lbidi]

Estimado ecfisa.. Muchisimas gracias por tu codigo y molestia.

Ahora si funciona como pretendia. De lujo.

Con esta ultima pregunta, espero ya terminar este post .

Siguiendo tu codigo, como puedo hacer ahora para recorrer todo el arbol y sus ramas, para guardarlas en una bd ? He tratado viendo algunos posts de este foro, pero no me recorre todo el arbol.

He hecho un for recorriendo todo el arbol, pero me quedan dudas si debo utilizar esa clase o ir creando
nodos para obtener el valor del text y del level que son los que debo grabar.

Gracias nuevamente por tu invalorable ayuda.

Saludos.

[lbidi]

Hola foristas.

Alguien me podria ayudar con el ultimo post que he puesto ?
Necesito grabar el arbol en una bd con los datos de la clase pero no se como recorrerlo.

Muchas gracias.

Saludos

[ecfisa]

Hola Ibidi.

Son muchas las formas en que podes desear guardar esos nodos...

De todos modos te pongo un ejemplo (muy simple) que añade secuencialmente los nodos en un TDataSet:

Código Delphi [-]
procedure TForm1.btAddToDataSetClick(Sender: TObject);
var
  i: Integer;
begin
  TargetDataSet.Open;
  tvCatalogo.Items.GetFirstNode;
  for i := 1 to tvCatalogo.Items.Count - 1 do
  begin
    TargetDataSet.Append;
    with TClase(tvCatalogo.Items[i].Data) do
    begin
      TargetDataSet.FieldByName('Nivel').AsString:= Nivel;
      TargetDataSet.FieldByName('Texto').AsString:= Texto;
      ...
    end;
    TargetDataSet.Next;
  end;
  TargetDataSet.Close;
end;

Espero que al menos sirva como para orientarte un poco.

Saludos.

[lbidi]

Muchas gracias , ecfisa..

Anduvo de maravillas.

Saludos cordiales..

Leo

[lbidi]

Hola foristas.
Lamento molestar otra vez pero tengo un pequeño problema que no he podido resolver.

Segun el siguiente codigo

Código Delphi [-]
procedure TForm1.btnAddNodeClick(Sender: TObject);
var
  nodo: TTreeNode;
begin
  Clase:= TClase.Create;
  ObjLst.Add(Clase);
  Clase.Nivel:= 'Nuevo nivel';
  Clase.Texto:= 'Nuevo texto';
  with tvCatalogo do
  begin
    Clase.Level:= TClase(Selected.Data).Level +
    StringOfChar('0', 2-Length(IntToStr(Selected.Level+1))) + IntToStr(Selected.Count + 1);  
    nodo:= Items.AddChildObject(Selected,Clase.Texto,Clase)
  end;
end;

me agrega perfectamente el nodo al arbol , pero si se borra un item del nodo, la propiedad count me estaria informando cuantos hay, pero no necesariamente el nivel que me toma es el ultimo.

ej. Si dentro de una rama tengo 9 items, el proximo seria el 10 y asi deberia crear el nuevo nodo para seguir la correlacion, pero si me borran el 5 y agrego otro mas , el count + 1, me sigue dando 9, el cual ya existe.

Como hago para obtener cual es el ultimo nivel de una rama , independientemente de que me borren n hijos en el medio ??

Espero haberme explicado.

Graciasssss

Saludoss

[ecfisa]

Hola Ibidi.

Si te has explicado perfectamente.

Código Delphi [-]
function ProxLevelCodigo(TV: TTreeView): string;
var
  v: Integer;
begin
  Result:= '';
  if TV.Selected.Count > 0 then
  begin
    Result := TClase(TV.Selected.Item[TV.Selected.Count-1].Data).Level;
    v:= StrToInt(Copy(Result, 3, MaxInt));
    Inc(v);
    Result:= Copy(Result,1,3)+IntToStr(v)
  end
end;

Ejemplo de llamada:

Código Delphi [-]
...
  Caption:= ProxLevelCodigo(tvCatalogo);
...

La función devuelve la cadena conformada por [level]+[ultimo_código_anterior+1] si el nodo actualmente seleccionado tiene algún hijo, o cadena vacía de lo contrario.

Saludos.

[lbidi]

Mil gracias ecfisa.

Anduvo de maravillas...

Saludosssss