Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.47 MB
Время: 0.028 c
14-1129637666
Prohozh
2005-10-18 16:14
2005.11.06
Ещё раз о равенстве полов


3-1127946719
turonix
2005-09-29 02:31
2005.11.06
Как через ADO узнать является ли текущее поле Primery Key


11-1110074904
серый мЫш
2005-03-06 05:08
2005.11.06
TKOLMainMenu


1-1129142886
Денис
2005-10-12 22:48
2005.11.06
Как работать граф.файл pcx формата?


14-1129703143
cyborg
2005-10-19 10:25
2005.11.06
MMSYSTEM.HLP