| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Получить список папок [D7, WinXP]
Gall © (2005-10-10 19:20:00)Как можно получить список папок в какой нить директории???
Palladin (2005-10-12 18:45:00) [1]
> Германн © (11.10.05 01:51) [3]
Там на самом деле не было ошибок, но были нюансы, на которые человек наткнется в поисках ошибок... по крайней мере я на это надеялся :)
IceBeerg (2005-10-11 13:30:00) [2]Если с полными путями то:
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;
IceBeerg (2005-10-11 13:29:00) [3]
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;
Германн (2005-10-11 01:51:00) [4]2 Palladin © (10.10.05 22:10) [2]
Тимур! Ну я ещё могу принять Ваш ответ в той ветке, с учётом "
Palladin © (09.10.05 22:38) [3]
для сведения: здесь есть ошибки... исправляй сам".
Но стоит ли ссылаться на подобное в других ответах?
Если это - ликбез, то ЮЗ делал его "гораздо длиннее в попугаях"! :)
И уж без ошибок.
Palladin (2005-10-10 22:10:00) [5]http://www.delphimaster.ru/cgi-bin/forum.pl?id=1128882891&n=18
Fay (2005-10-10 19:46:00) [6]FindFirstFile/FindNextFile/FindClose + F1
| |
