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

Каталоги   Найти похожие ветки 

← →
selena   (2003-12-18 13:43) [0]

Здраствуйте Подскажите в чем тут дело?
Нужно найти все каталоги ,а данный текст выводит только файлы в основном каталоге.И как поочередно перейти в найденный каталог?

procedure TForm1.Button4Click(Sender: TObject);
var s:string;
r:integer;
f: TSearchRec;
begin
r := FindFirst ("c:\watcher\*.*", faDirectory and not FaAnyFile, f);
while r = 0 do
begin
r := FindNext (f);
end;
RichEdit1.Lines.Add(f.Name);
end

---

← →
serge   (2003-12-18 13:47) [1]


var
DirInfo: TSearchRec;
r : Integer;
begin
r := FindFirst(DirStr + "\*.*", FaDirectory, DirInfo);
while r = 0 do begin
Application.ProcessMessages;
if ((DirInfo.Attr and FaDirectory = FaDirectory) and
(DirInfo.Name <> ".") and
(DirInfo.Name <> "..")) then
RichEdit1.Lines.Add(DirStr + "\" + DirInfo.Name);
r := FindNext(DirInfo);
end;
SysUtils.FindClose(DirInfo);
end;


---

← →
selena   (2003-12-18 13:52) [2]

dIRsTR stringовый параметр из процедуры?
А Application.ProcessMessages;что такое?

---

← →
selena   (2003-12-18 13:55) [3]

А как теперь переходить в найденные каталоги?

---

← →
serge   (2003-12-18 13:57) [4]

Application.ProcessMessages - позволяет твоей программе реагировать на системные сообщения во время выполнения долгих процедур
DirStr - начальная директория в которой начинаешь поиск

---

← →
serge   (2003-12-18 14:00) [5]

По моему вызывать рекурсивно ту же функцию но только с уже текущим каталогом

---

← →
selena   (2003-12-18 14:09) [6]

Спасибо

---

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

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



Память: 0.46 MB
Время: 0.014 c