|
Тема |
Ракурсия (рекурсия) |
|
Автор |
Chefo () |
|
Публикувано | 10.11.03 22:33 |
|
|
Пиша и в скоби, защото не знам как е правилно.
А и ме е срам! Преди години си пишех какви ли не програмки да си обхождам директориите, а сега когато ми трябва, не мога. Кода по-долу ми връща само файловете от най-горната директория.
Когато срещне директория, влиза пак в процедурата, но не намира нищо и излиза обратно. Ето и кода ми:
procedure TForm1.GetFiles(n: string);
var
sr: TSearchRec;
begin
if FindFirst (ExpandFileName (n) + '\*.*', faAnyFile, sr) = 0 then begin
repeat
if sr.Name[Length (sr.Name)] <> '.' then
if (sr.Attr and faDirectory) = faDirectory then
GetFiles (sr.Name)
else
InsertFile(sr);
until FindNext (sr) <> 0;
FindClose(sr);
end;
end;
Викам процедурата с GetFile ('C:\temp');
Какво пропускам???
ЧеФо
|
| |
|
|
|