Форум: "Начинающим";
Текущий архив: 2005.11.06;
Скачать: [xml.tar.bz2];
Вниз
Получить список папок Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.038 c
