[eXplorer]

нужно осуществить поиск всех коталогов в расделе жесткого диска: например 'c:\'...
незнаю по этому поводу никаких алгоритмов попробовал написать сам с использованием двух массивов... поиск работает... только как то странно
в первых катологах вроде всё идет нормально.. а потом получается что то вроде:
'c:\Фото\..\Фото\..\Фото\..\Видео\'
не пойму что такое
вот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

procedure TForm1.find1(); var FindRes:integer; s:string; i:integer; begin fillchar(s2,sizeof(s2),0);   //очистка второго массива for i:=1 to length(s1) do begin FindRes:=FindFirst(s1[i]+'*.',faDirectory,f); while FindRes=0 do begin s2[i]:=s1[i]+f.name+'\'; Form1.ListBox1.Items.Add(s2[i]); FindRes:=Findnext(f); Application.ProcessMessages; end; FindClose(f); Form1.Find2(); end; end;     procedure TForm1.find2(); var FindRes:integer; s:string; i:integer; begin fillchar(s1,sizeof(s1),0);   //очистка первого массива for i:=1 to length(s2) do begin FindRes:=FindFirst(s2[i]+'*.',faDirectory,f); while FindRes=0 do begin s1[i]:=s2[i]+f.name+'\'; ListBox1.Items.Add(s1[i]); FindRes:=Findnext(f); Application.ProcessMessages; end; FindClose(f); find1(); end; end;   procedure TForm1.Button1Click(Sender: TObject); begin s1[1]:='d:\'; Find1(); end;

подскажите почему получается так: 'c:\Фото\..\Фото\..\Фото\..\Видео\'

незнал как начать писать этот поиск... придумал только так намудрил мне кажется

[M.A.D.M.A.N.]

Рекурсивно желательно делать. ".." переход на уровень вверх "." переход в корень, надо просто исключать их из поиска.

Код:

1 2	if SameStr(path, "..") then   continue;

З.Ы. код приводи в читабельный вид, невозможно такое читать.

[Janom]

Вот исходник, тут в библиотеке есть реализация того что тебе нужно

[eXplorer]

Спасибо всем!