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

[mrnovice]

Código Delphi [-]
readfiles(nil);

Código Delphi [-]
if Node=nil then
   begin
    begin
         QModulo.First;
         while not QModulo.Eof do
            begin
               Child:=JvCheckTreeView1.Items.AddChild(Node,'<'+Qmodulo.fieldbyname('modulo').AsString+'>');
               Child.Data:=pointer(Qmodulo.FieldByName('modulo').AsString);
               ShowMessage(child.Text);
               ShowMessage(String(child.Data)); //este sí sale correcto
               Child.HasChildren:=True;
               QModulo.Next;
            end;
     end;
   end else begin
         ShowMessage(String(Node.Data));
         ShowMessage(String(Node.Data^));
         ShowMessage(node.Text);
end;

no salió del todo y muchas gracias por tu apoyo mira el código de arriba es algo que manejo en el evento OnExpanding, como verás cuando lo agergo si sale pero lo intento expandir no sale a qué se puede deber incluso me aparece un Access Violation

[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