Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.12.09;
Скачать: CL | DM;

Вниз

помогите чайнику   Найти похожие ветки 

 
hahol_64_rus   (2007-11-12 17:05) [0]

мне над функцию
даешь ей имя папки а она те возращает список (TstringList)
с папками и всеми подпапками  данной папочки.
заранее пасиб


 
Palladin ©   (2007-11-12 17:15) [1]

http://www.delphimaster.ru/cgi-bin/search.pl?words=%F1%EF%E8%F1%EE%EA+%F4%E0%E9%EB%EE%E2&n=101


 
hahol_64_rus   (2007-11-12 17:21) [2]

при чем тут базы данных
че за ответ неуметный ((((((
мне пожалста по делу


 
Рамиль ©   (2007-11-12 17:28) [3]


type
 TSearchObj = class
 public
   SearchRec: TSearchRec;
 end;

procedure CreateFileList(var BeginPath: string; Path: string; List: TstringList);
var
 SearchRec: TSearchRec;
 FindFlag: integer;
 SearchObj: TSearchObj;
begin
 FindFlag := FindFirst(Path + "*.*", faAnyFile, SearchRec);
 while FindFlag = 0 do
 begin
   if (SearchRec.Name <> ".") and (SearchRec.Name <> "..") then
   begin
     SearchObj := TSearchObj.Create;
     SearchObj.SearchRec := SearchRec;
     List.AddObject(ExcludeBeginPath(BeginPath, Path + SearchRec.Name), SearchObj);
     if (SearchRec.Attr and faDirectory <> 0) then
       CreateFileList(BeginPath, Path + SearchRec.Name + "\", List);
   end;
   FindFlag := FindNext(SearchRec);
 end;
 SysUtils.FindClose(SearchRec);
end;

Вызов:

 SourcePath := IncludeTrailingPathDelimiter(SourcePath);
 TargetPath := IncludeTrailingPathDelimiter(TargetPath);
 SourceList := TStringList.Create;
 TargetList := TStringList.Create;
 CreateFileList(SourcePath, SourcePath, SourceList);

Только тут немного лишнего - сохраняется вся информация о файле.


 
sniknik ©   (2007-11-12 17:29) [4]

да без проблем, счас будет по делу. ожидайте.



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
3-1185952264
dimaL
2007-08-01 11:11
2007.12.09
Хранимые процедуры Interbase


3-1186388283
DelphiLexx
2007-08-06 12:18
2007.12.09
Импортирование данных из XML


15-1194269268
Моб
2007-11-05 16:27
2007.12.09
Выбор мобильника.


15-1194890026
Wu Wei
2007-11-12 20:53
2007.12.09
О закрытии веток


6-1172805876
ШкодЕныш
2007-03-02 06:24
2007.12.09
Избитый вопрос: TCP/IP - много клиентов-один сервер