Guest User

Untitled

a guest
Aug 21st, 2018
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.62 KB | None | 0 0
  1. client1 bank1 test1
  2. client1 bank1 test2
  3. client1 bank2 test1
  4. clientx bank2 test2
  5.  
  6. client1 - bank1 - test1
  7. - test2
  8. - bank2 - test1
  9. clientX - bank2 - test2
  10.  
  11. client1 - bank1 - test1
  12. client1 - bank1 - test2
  13. client1 - bank2 - test1
  14. clientX - bank2 - test2
  15.  
  16. repeat
  17. RootNode := TreeAnaliza.Items.AddObject(nil, q.FieldByName('Client').AsString, nil);
  18. MiddleNode := TreeAnaliza.Items.AddChildObject(RootNode, q.FieldByName('bank').AsString, nil);
  19. LowestNode:= TreeAnaliza.Items.AddChildObject(ParentNode, q.FieldByName('test').AsString, nil);
  20. q.Next;
  21. until q.Eof;
Add Comment
Please, Sign In to add comment