[Lazarus] TTreenode.data

[Antonio Fortuny]

Le 11/09/2013 07:51, Richard Mace a écrit :
> Hi,
> Can anyone give me an example of adding and retrieving an integer 
> value to a TTreenode via it's data property please?
>
> I've tried the below, but it doesn't seem to work.
>
> Set:
> with 
> tvMain.Items.AddChildObject(tvMain.Selected,'string',TObject(fUserList.Items[I].Id)) 
> do
change to:
with tvMain.Items.AddChildObject(tvMain.Selected,'string', 
*Pointer*(fUserList.Items[I].Id)) do
>
>
> and getting as, throws an exception on start:
> procedure TfrmMain.tvMainChange(Sender: TObject; Node: TTreeNode);
> begin
>   ShowMessage('Node ' + IntToStr(Integer(Node.Data)));
change to:
ShowMessage('Node ' + IntToStr(*PtrInt***(Node.Data)));

Antonio.
> end;
>
> Thanks in advance
>
> Richard
>
>
> --
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20130911/2acb448f/attachment-0003.html>