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