| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

помогите чайнику [D7, XP]

hahol_64_rus ©   (2007-11-12 17:05:00) 

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

---

sniknik   (2007-11-12 17:29:00) [1]

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

---

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


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);

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

---

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

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

---

Palladin   (2007-11-12 17:15:00) [4]

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

---

Наверх