Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
ВнизКак? Найти похожие ветки
← →
cpp (2001-12-19 10:53) [3]Вот и моих исходников можешь подстроить под себя
procedure ReadAllFiles(DirFrom : string);
var SearchRecOtkuda : TSearchRec;
procedure ReadFile(FileName : string);
begin
// что хочем то и делаем с файлом
end;
procedure ReadDir(DirName : string);
begin
// что хочем то и делаем с директорием
if (DirName <> ".") and (DirName <> "..") then
begin
ReadAllFiles(DirFrom+"\"+DirName);
end;
end;
begin
if FindFirst(DirFrom+"\*.*",faAnyFile,SearchRecOtkuda) = 0 then
begin
if (faDirectory and SearchRecOtkuda.Attr) > 0 then
ReadDir(SearchRecOtkuda.Name)
else
ReadFile(SearchRecOtkuda.Name);
while FindNext(SearchRecOtkuda) = 0 do
begin
if (faDirectory and SearchRecOtkuda.Attr) > 0 then
ReadDir(SearchRecOtkuda.Name)
else
ReadFile(SearchRecOtkuda.Name);
end;
end;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.008 c