Каталоги

← →
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]

Спасибо

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