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?

Thanks in advance
Susie
------
Susie K Nicol
Christchurch
New Zealand.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20150704/4509afe9/attachment.html>

Not like this. You need to keep a reference when doing an AddChild:

Var
   N : TTreeNode;
begin
   N:=Treeview1.items.addchild(treeview1.selected, SQLQuery1.fields[0].AsString);
   N.data := Pointer(SQLQuery1.fields[1].AsInteger);
end;

Michael.

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

Susie,

You may find the code for TIBTreeView in the IBX for Lazarus package as a useful example of how to create a data aware treeview. Even you don't want to use IBX, the overall approach should work with other DB packages.

Tony Whyman
MWA

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20150704/75561cbd/attachment-0001.html>

Thanks heaps guys. That's great.

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20150704/dccf505a/attachment.html>