Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c