har försökt med många metoder för att fylla en treeview, ingen med någon direkt framgång. Jag vill söka igenom en mapp efter undermappar samt de mp3 som dessa innehåller. Undermapparna ska sedan visas som nivå 0 och mp3-orna som nivå 1.

Mest fördelaktigt hade varit om jag kunde söka igenom -> lagra i en ClientDataSet -> gå igenom denna för att lägga till id3tags -> och sist visa i treeview.

Koden nedan är ett av många exempel jag försökt med.

procedure TForm1.GetDirectories(Tree: TTreeView; Directory: string; Item: TTreeNode; IncludeFiles: Boolean);
var
SearchRec: TSearchRec;
ItemTemp: TTreeNode;
begin
Tree.Items.BeginUpdate;
i := -1;
if Directory[Length(Directory)] <> '\' then Directory := Directory + '\';
if FindFirst(Directory + '*.*', faDirectory, SearchRec) = 0 then
begin
repeat
if (SearchRec.Attr and faDirectory = faDirectory) and (SearchRec.Name[1] <> '.') then
begin
if (SearchRec.Attr and faDirectory > 0) then
Item := Tree.Items.AddChild(Item, SearchRec.Name);
ItemTemp := Item.Parent;
GetDirectories(Tree, Directory + SearchRec.Name, Item, IncludeFiles);
Item := ItemTemp;
end
else if IncludeFiles then
if SearchRec.Name[1] <> '.' then
Tree.Items.AddChild(Item, SearchRec.Name);

until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
Tree.Items.EndUpdate;
end;


Någon som har några förslag