Foros Club Delphi - AddChildObject en TreeView

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - AddChildObject en TreeView (https://www.clubdelphi.com/foros/showthread.php?t=72786)

jars	11-03-2011 16:21:00

AddChildObject en TreeView

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

11-03-2011 16:29:26

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	11-03-2011 16:51:03

Lo acabo de probar como sugeris:

Código:

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:

Código:

  numver := Integer(tv.Selected.Data);

  showmessage('la version es '+inttostr(numver));

pero agregando un breakpoint tv.Selected.Data = nil

jars	11-03-2011 16:57:26

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

Gracias

roman

11-03-2011 17:06:03

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

// Saludos

La franja horaria es GMT +2. Ahora son las 18:05:05.