Текущий архив: 2005.11.06;
Скачать: CL | DM;

Вниз

Получить список папок   Найти похожие ветки 

← →
Gall ©   (2005-10-10 19:20) [0]

Как можно получить список папок в какой нить директории???

---

← →
Fay ©   (2005-10-10 19:46) [1]

FindFirstFile/FindNextFile/FindClose + F1

---

← →
Palladin ©   (2005-10-10 22:10) [2]

http://delphimaster.net/view/2-1128882891/

---

← →
Германн ©   (2005-10-11 01:51) [3]

2 Palladin ©   (10.10.05 22:10) [2]
Тимур! Ну я ещё могу принять Ваш ответ в той ветке, с учётом "
Palladin ©   (09.10.05 22:38) [3]

для сведения: здесь есть ошибки... исправляй сам".

Но стоит ли ссылаться на подобное в других ответах?
Если это - ликбез, то ЮЗ делал его "гораздо длиннее в попугаях"! :)
И уж без ошибок.

---

← →
IceBeerg ©   (2005-10-11 13:29) [4]

procedure ScanDir(StartDir: string; List:TStringList);
var
SearchRec : TSearchRec;
begin
StartDir:=IncludeTrailingPathDelimiter(StartDir);
if FindFirst(StartDir+"*.*", faAnyFile, SearchRec) = 0 then
begin
repeat
if (SearchRec.Attr and faDirectory) = faDirectory then
 if (SearchRec.Name <> "..") and (SearchRec.Name <> ".") then List.Add(SearchRec.Name);
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

---

← →
IceBeerg ©   (2005-10-11 13:30) [5]

Если с полными путями то:
procedure ScanDir(StartDir: string; List:TStringList);
var
SearchRec : TSearchRec;
begin
StartDir:=IncludeTrailingPathDelimiter(StartDir);
if FindFirst(StartDir+"*.*", faAnyFile, SearchRec) = 0 then
begin
repeat
if (SearchRec.Attr and faDirectory) = faDirectory then
 if (SearchRec.Name <> "..") and (SearchRec.Name <> ".") then List.Add(StartDir + SearchRec.Name);
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

---

← →
Palladin ©   (2005-10-12 18:45) [6]

> Германн ©   (11.10.05 01:51) [3]

Там на самом деле не было ошибок, но были нюансы, на которые человек наткнется в поисках ошибок... по крайней мере я на это надеялся :)

---

Страницы: 1 вся ветка

Текущий архив: 2005.11.06;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.029 c