Salut,
Eclems : Si je peux me permettre, pomper un code c'est bien, mais comprendre comment il fonctionne ca aide parfois .
Un début de solution :
procedure GetDirectories(Tree: TTreeView; Directory: string; Item: TTreeNode; IncludeFiles :Boolean);
var
SearchRec: TSearchRec;
ItemTemp: TTreeNode;
begin
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
//Ici gérer l'ajout du fichier dans le TListView en utilisant SearchRec.Name
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
TreeView1.Items.BeginUpdate;
Screen.Cursor := crHourGlass;
try
TreeView1.Items.Clear;
TreeView1.Items.Add(Nil,'HOME');
GetDirectories(TreeView1,'c:\',Nil, True);
finally
Screen.Cursor := crDefault;
TreeView1.Items.EndUpdate;
end;
end;
Puis pour la forme : Indente ton code et utilise les balises codes, lorsque tu donnes un bout de code .