¿Cómo usar un Pointer?

[fjolivares]

Hola a todos, como se utiliza un pointer?

tengo un treeview y estoy intentando almacenar informacion en la propiedad Data de los nodos, q es TPointer, pero ni idea de por donde cogerlo.

Saludos a todos.

[[Lepe]]

Creo que es esto lo que necesitas.

 type TCadena=String[255];

  type TEnCD=record // el regisro asociado a cada nodo del TTreeview
    Titulo,
    Categoria,
    RutaEnCD,
    Comentario  :Tcadena;
  end;
  type TpEnCD=^TEnCD;
// TpEnCD es un tipo de datos que será un puntero al registro TEnCD


var pn:TpEnCD;
begin
 try
  begin
    new(pn); // creamos el espacio en memoria
    pn^.Titulo:=edit1.text;
    pn^.RutaEnCD:=edit2.text
    pn^.Comentario:=richedit1.text;
    pn^.Categoria:='CD sin categorias';
    data := pn;

// y para recuperarlo :
    pn := TpEnCD(Data);

// o bien 
    Showmessage(TpEnCD(Data)^.Titulo)


// para liberar de memoria:
   dispose (TpEnCD(Data));

Saludos

[delphi.com.ar]

Algo muy importante: Al tratarse de punteros, luego queda en tus manos el echo de liberar la memoria utilizada por lo que apunte estos punteros, la metodología a utilizar, es asignar el puntero después que se crea el TTreeNode y lo importante que te quiero comentar, es utilizar el evento OnDeletion, para liberar la memoria utilizada por este puntero.

Saludos!

[roman]

Con la idea de Lepe puedes usar el puntero para guardar un registro en cada nodo.

También te comento que dado que los objetos son a fin de cuentas punteros puedes guardar directamente objetos en cada nodo haciendo el moldeo adecuado:

Data := Pointer(UnObjeto) // asignar el objeto
UnObjeto := TUnObjeto(Data) // recuperar el objeto

Esto, claro está, no invalida el hecho de tener que liberar recursos como apunta delphi.com.ar usando el método Free del objeto en el evento OnDeletion.

// Saludos

[[Lepe]]

Empezado por roman

Con la idea de Lepe ...

casi mejor..... Con la idea de Clubdelphi


Saludos