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