🚀 go-pugleaf

Function FindCreateChild(List : TListView; RootNode : TTreeNode; Text : String) 
: TTreeNode;

Var
  Search                : TTreeNode;

Begin
  Result := Nil;
  Search := RootNode.GetFirstChild;
  While Assigned(Search) Do
  Begin
    If (Search.Text=Text) Then
    Begin
      Result := Search;
      Break;
    End;
    Search := Search.GetNextSibling;
  End;
  If Not Assigned(Result) Then
  Begin
    Result := List.Items.AddChild(RootNode,Text);
  End;
End;

Procedure Aform.AddITems (Names : TStringList);

Var
  Root : TTreeNode;
  Loop : Integer;

Begin
  Root := Nil;      //  I usually define this with an AddFirst call.
  For Loop := 0 To Names.Count-1 Do
  Begin
    Root := CreateAddChild(MyListView,Root,Names[Loop]);
  End;
End;

That should more or less do you.  I use this code myself (the only thing I do 
different, and may cause you difficulties is the assignment of NIL to root,
I normally have it predefined to something already in the tree)

- Clinton R. Johnson

(Now drop the duct tape and the gerbil.... Shesh some people..)