Форум: "Система";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];
Внизкак быть с организацие поиска Найти похожие ветки
← →
Vitaly (2001-09-28 14:25) [1]procedure ScanDir(dir: string);
var rc: integer;
sr: TSearchRec;
begin
rc := findFirst(dir + "\*.*", faAnyFile, sr);
while rc = 0 do begin
if (sr.Attr and faDirectory) = 0
then writeln(dir+"\"+sr.name)
else if sr.name[1] <> "." then scanDir(dir+"\"+sr.name);
rc := findNext(sr);
end;
FindClose(sr);
end;
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.003 c