[Lazarus] Adding data field to a child node in a treeview

[Howard Page-Clark]

On 04/07/2015 09:46, Susie Nicol wrote:
> Hi - me again
>
> I have a Lazarus treeview, which I am populating from several sql queries.
>
> I add  child nodes in this way, setting them to one of the fields
> returned from the query
>
>             while Not SQLQuery1.EOF do
>            Begin
>
>            treeview1.items.addchild(treeview1.selected,
> SQLQuery1.fields[0].AsString);
>
>             SQLQuery1.Next
>            end;
>
> That works of course.
>
> I want to modify the newly added node by setting its data property to
> another field in the loop - something like
>
>      treeview1.SOMETHING.data := Pointer(SQLQuery1.fields[1].AsInteger);
>
> but the problem is that I can't work out how to identify the newly-added
> child node.  Is it possible?

var
   node: TTreeNode;
begin
node:=TreeView1.Items.AddChild(TreeView1.Selected,SQLQuery1.Fileds[0].AsString);
node.Data:=pointer(SQLQuery1.Fields[0].AsInteger);
SQLQuery1.Next;
end;


---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus