помогите чайнику

← →
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);
Только тут немного лишнего - сохраняется вся информация о файле.

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

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