program Project1;

uses
 KOL;

procedure FillTVWithFL(TV: PControl; FL: PStrList);
 function ItemIndex(Parent: Cardinal; ItemName: string): Cardinal;
 var Item: Cardinal;
 begin
   Result := 0;
   Item := TV.TVItemChild[Parent];
   while Item <> 0 do
   begin
     if AnsiCompareStrNoCase(TV.TVItemText[Item], ItemName) = 0 then
     begin
       Result := Item;
       Break;
     end;
     Item := TV.TVItemNext[Item];
   end;
 end;

var
 i: Integer;
 s, s1: string;
 Parent, Item: Cardinal;
begin
 for i := 0 to FL.Count - 1 do
 begin
   s := FL.Items[i];
   s1 := Parse(s, '\');
   Parent := TVI_ROOT;
   while s1 <> '' do
   begin
     Item := ItemIndex(Parent, s1);
     if Item = 0 then
       Parent := TV.TVInsert(Parent, TVI_SORT, s1)
     else
       Parent := Item;
     s1 := Parse(s, '\');
   end;
 end;
end;

var
 Form, TV: PControl;
 SL: PStrList;
begin
 Form := NewForm(nil, 'TV');
 TV := NewTreeView(Form, [], nil, nil).SetAlign(caLeft);
 SL := NewStrList;
 SL.Add('D:\Program Files\Borland\Delphi6\Source\Vcl\Printers.dcu');
 SL.Add('D:\Program Files\Borland\Delphi6\Source\Vcl\WinHelp.dcu');
 SL.Add('C:\WINNTS\system\BORLNDMM.DLL');
 FillTVWithFL(TV, SL);
 SL.Free;
 Run(Form);
end.

procedure FillTreeViewWithFiles(TreeView1: PControl; Strs: PStrListEX);
var
 CachedStrs: PStrListEX; // CachedStrs

 procedure AddItem(Lev: Integer; ParentNode: Cardinal; S: string);
   function FindNodeWithText(AParent: Cardinal; const S: string): Cardinal;
   var
     K: Integer;
     fStr: string;
     tmpNode: Cardinal;
   begin
     Result := 0;
     fStr := S + Int2Str(AParent);
     K := CachedStrs.IndexOf(fStr);
     if K > -1 then
       Result := CachedStrs.Objects[K]
     else
     begin
       if AParent <> 0 then
         tmpNode := TreeView1.TVItemChild[AParent]
       else
         tmpNode := TreeView1.TVRoot;
       while tmpNode <> 0 do
       begin
         if TreeView1.TVItemText[tmpNode] = S then
         begin
           Result := tmpNode;
           CachedStrs.AddObject(fStr, tmpNode);
           break;
         end;
         tmpNode := TreeView1.TVItemNext[tmpNode];
       end;
     end
   end;

 var
   prefix: string;
   ID: Integer;
   aNode: Cardinal;
 begin
   if S = '' then
     Exit;
   ID := Pos('\', S);
   prefix := '';
   if ID > 0 then
     prefix := Copy(S, 1, ID - 1)
   else
   begin
     prefix := S;
     S := '';
   end;

   aNode := FindNodeWithText(ParentNode, prefix);

   if aNode = 0 then
   begin
     aNode := TreeView1.TVInsert(ParentNode,TVI_LAST,prefix);
   end;

   AddItem(Lev + 1, aNode, Copy(S, ID + 1, Length(S)));

 end;

var
 K: Integer;
begin
 CachedStrs := NewStrListEx;
 try
   for K := 0 to Strs.Count - 1 do AddItem(0, 0, Strs.Items[K]);
 finally
   CachedStrs.Free;
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
   debug:cardinal;
begin
debug:=gettickcount;
 for i := 0 to 10000 do
 begin
 TV.Items.AddChild(nil,'Item' +  InttoStr( i ));
 //TV.TVInsert( 0, 0, 'Item' +  Int2Str( i ) );
 end;
form1.Caption:=inttostr(gettickcount-debug);
//form.Caption:=int2str(gettickcount-debug);
end;