AddChildObject en TreeView

[jars]

Hola amigos.
Lo que quiero hacer es agregarle a un child un valor entero que es el ID de un registro de la BBDD y luego poder consultarlo. Estoy usando la componente TcxTreeView de Developer Express pero creo que en esto es igual a la que viene en el ide. Uso Delphi 7.

Por ejemplo:
var
RecId: Integer;
...
tv.Items.AddChildObject(tv.Selected, 'Nuevo registro', RecId)

Luego como obtengo el valor guardado en el item.
Gracias

[roman]

Una vez que obtienes una referencia al nodo, supongo que con algo así:

Código Delphi [-]
RecId := Integer(Nodo.Data);

Pero, ¿te deja compilar lo que pusiste? Según yo, ahí también necesitas hacer un moldeo:

Código Delphi [-]
tv.Items.AddChildObject(tv.Selected, 'Nuevo registro', Pointer(RecId))

En todo caso, acuérdate de usar las etiquetas adecuadas para escribir código en tus mensajes.

// Saludos

[jars]

Lo acabo de probar como sugeris:

var
numver: Integer;
begin
  numver := QNews.FieldByName('DBN_FILECTRL').AsInteger;
  tv.Items.AddChildObject(tv.Selected, 'New Item', Pointer(numver));
end;

y lo intento mostrar con:

  numver := Integer(tv.Selected.Data);
  showmessage('la version es '+inttostr(numver));

pero agregando un breakpoint tv.Selected.Data = nil

[jars]

Disculpame Roman, el error fue mio. El ejemlpo que me enviaste si funciona.
Ahora como hago para liberar cada objeto del TreeView?

Gracias

[roman]

No tienes que liberar nada por que en realidad no son objetos lo que estás guardando.

// Saludos