integer(node.data) pero en string cómo?

[mrnovice]

algo raro pasó, supongo que ha de ser porque uso jvchecktreeview deja lo checo

[ecfisa]

Hola mrnovice.

No conozco el componente jvchecktreeview, pero supongo que no debe ser muy distinto al TTreeView.

Pareciera que el error esta en estas líneas:

Código Delphi [-]
    Child:= JvCheckTreeView1.Items.AddChild(Node,'<'+Qmodulo.fieldbyname('modulo').AsString+'>');
    Child.Data:=pointer(Qmodulo.FieldByName('modulo').AsString);

Hice una prueba simple cargando un TreeView con la tabla Country (DBDEMOS). Creo que lo que está en negrita te va a dar una pauta
para hallar la solución.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Root, Child: TTreeNode;
  Str: string;
begin
  QModulo.First;
  while not QModulo.Eof do
  begin
    Root:= TreeView1.Items.Add(nil,'<'+Qmodulo.fieldbyname('Name').AsString+'>');
    Child:= TreeView1.Items.AddChild(Root,QModulo.FieldByName('Capital').AsString);
    Str:= Qmodulo.FieldByName('Capital').AsString;
    Child.Data:= @Str; // ó igualmente: Addr(Str) 
    Root.HasChildren:=True;
    QModulo.Next;
  end;
end;

Para desreferenciar y convertir usá:

Código Delphi [-]
   string(Nodo.Data^)

Saludos.

[ContraVeneno]

Yo también utilizo un TjvCheckTreeView y no es muy diferente al TreeView, salvo la casilla de verificación, vamos, es lo mismo. Y con esto me ayudo mucho para manejar y obtener información de un nodo.

Código Delphi [-]
//definición de datos que se adminitiran en Nodo.Data:
  type
  PInfoNodo = ^TInfoNodo;
  TInfoNodo = record
    Caption: string;
    ID: Integer;
  end;
......
//Para agregar un nuevo nodo:
var   InfoNodo: PInfoNodo;
.....
   New(InfoNodo);
   InfoNodo^.Caption := Nombre; //nombre es una variable string
   InfoNodo^.ID := 1;
   if TreeView.Selected.HasChildren then begin
    Nodo := TreeView.Items.AddChildObject(TreeView.Selected, Nombre, InfoNodo);
   end else begin
    Nodo := TreeView.Items.AddObject(TreeView.Selected, Nombre, infoNodo);
 end;
...
//Para obtener información del nodo.data
 if (TreeView.Selected.Data <> nil) then begin
   edtNodoCaption.Text := PInfoNodo(TreeView.Selected.Data)^.Caption;
   edtNodoId.Text := IntToStr(PInfoNodo(TreeView.Selected.Data)^.ID);
end;

Saludos.

[mrnovice]

Voya checar y mañana les digo que ondas sales?
ufff le debo mucho a este foro XD muchas gracias por tener gente como ustedes saludos.

[mrnovice]

probe los dos, la diferencia es que el primer caso solamente te lo guarda en un variable y el segundo pues en el tree, utilize el segundo caso que es el de ContraVeneno jejeejeje bueno, y con eso se solucion{o