[Lazarus] TTreenode.data

[Hans-Peter Diettrich]

Howard Page-Clark schrieb:
> On 11/09/2013 18:03, Flávio Etrusco wrote:
>> On Wed, Sep 11, 2013 at 5:41 AM, Howard Page-Clark <hdpc at talktalk.net> 

>>> procedure TfrmMain.tvMainChange(Sender: TObject; Node: TTreeNode);
>>> begin
>>>    if Assigned(Node) then
>>>      ShowMessage('Node ' + IntToStr(PtrInt(Node.Data)));
>>>
>>
>> I guess you mean "if Assigned(Node.Data) then" ?
> 
> Indeed that is what I meant, not what I wrote!

In this case you can omit the "if" entirely.

DoDi