Главная страница
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.48 MB
Время: 0.054 c
2-1128965564
partizan
2005-10-10 21:32
2005.11.06
Чем отличаются object и class?


2-1129434980
DimaDima
2005-10-16 07:56
2005.11.06
Можно ли обращаться к массивам по индексам в их имени?


9-1117662227
Темас
2005-06-02 01:43
2005.11.06
Реалистичная траектория падения снежинки Как сделать ?


14-1129577447
raymond
2005-10-17 23:30
2005.11.06
Инет-провайдер, PPP, хочу разобраться...


14-1129202563
Иг_Иг
2005-10-13 15:22
2005.11.06
Ася - Icq