может не удастся удалить т.к. у нее будет стоять атрибут Только чтение. Можно конечно снять этот атрибут программным путем, но давай сделаем проще и безопаснее, программа будет сообщать о невозможности удаления.
{ 21 } begin
{ 34 } result := false; // значит папка не пуста.
{ 22 } // если это папка
{ 23 } if ((SR.Attr and $10) = $10 ) then
{ 24 } begin // рекурсивный вызов функции
{ 25 } if DelEmtyDir( Target+'\'+ SR.Name)
{ 26 } then
{ 27 } begin // удаление пустой папки
{ 28 } RmDir(Target+'\'+ SR.Name);
if IOResult = 0
{ 29 } then inc(count) // + 1 в счетчик
else ShowMessage('Не могу удалить папку '+Target+'\'+ SR.Name);
{ 30 } end;
{ 31 } end;
{ 38 } end;
|go| Все. Теперь работает. Претензий нет.
|t_| Да? А мне вот, не нравится. Программа удаляет с компьютера, что-то не спросив разрешения, а может эта папка и пустая необходима. Давай переделаем программу. Вместо одной кнопки - две: Сканирование и Удаление. И CheckListBox для хранения найденных пустых папок.
|go| Как опять все сначала?
|t_| Ну, не совсем сначала. Кстати вот один из критериев оценки качества программы - легкость ее модификации... Вот, что у меня получилось: // начало кода { 0 } unit Unit1; { 1 } { 2 } interface { 3 } { 4 } uses { 5 } Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, { 6 } Dialogs, StdCtrls, FileCtrl, CheckLst, ExtCtrls; { 7 } { 8 } type { 9 } TForm1 = class(TForm) { 10 } Panel1: TPanel; { 11 } Button1: TButton; { 12 } Button2: TButton; { 13 } CheckListBox1: TCheckListBox; { 14 } Label1: TLabel; { 15 } procedure Button1Click(Sender: TObject); { 16 } procedure FormCreate(Sender: TObject); { 17 } procedure Button2Click(Sender: TObject); { 18 } private { 19 } { Private declarations } { 20 } public { 21 } { Public declarations } { 22 } end; { 23 } { 24 } var { 25 } Form1: TForm1; { 26 } Path : AnsiString; // путь к папке с программой { 27 } Dir : AnsiString; { 28 } CCount : integer; // счетчик удалений { 29 } { 30 } implementation { 31 } { 32 } {$R *.dfm} { 33 } { 34 } function ScanEmtyDir(Target : AnsiString):boolean; { 35 } var { 36 } Found : integer; // результат поиска ( 0 - файл найден ) { 37 } SR : TSearchRec; // запись с параметрами файла { 38 } begin { 39 } Found := FindFirst(Target + '\*.*',$3F,SR); { 40 } result := true; // предположим что папка пуста. { 41 } WHILE Found = 0 DO { 42 } BEGIN { 43 } if (SR.Name <> '.') { 44 } and (SR.Name <> '..') { 45 } then { 46 } begin { 47 } result := false; // значит папка не пуста. { 48 } // если это папка { 49 } if ((SR.Attr and $10) = $10 ) then { 50 } begin // рекурсивный вызов функции { 51 } if ScanEmtyDir( Target+'\'+ SR.Name) { 52 } then // удаление пустой папки { 53 } begin { 54 } with Form1.CheckListBox1 do { 55 } Checked[Items.Add(Target+'\'+ SR.Name)] := true; { 56 } end; { 57 } end; { 58 } end; { 59 } Found := FindNext(SR); { 60 } END;{DosError = 0} { 61 } FindClose(SR); { 62 } end; { 63 } { 64 } procedure TForm1.Button1Click(Sender: TObject); { 65 } begin { 66 } if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) { 67 } then { 68 } begin { 69 } if Dir[length(Dir)]='\' { 70 } then delete(Dir, length(Dir),1); { 71 } CheckListBox1.Items.Clear; { 72 } ScanEmtyDir(Dir); { 73 } Label1.Caption := 'Найдено '+ IntToStr(CheckListBox1.Items.Count) { 74 } +' пустых папок.'; { 75 } end; { 76 } end; { 77 } { 78 } procedure TForm1.FormCreate(Sender: TObject); { 79 } begin { 80 } Path := ExtractFileDir(ParamStr(0)) + '\'; { 81 } Dir := Path; { 82 } end; { 83 } { 84 } procedure TForm1.Button2Click(Sender: TObject); { 85 } var { 86 } i : integer; { 87 } begin { 88 } CCount := 0; { 89 } with Form1.CheckListBox1 do { 90 } begin { 91 } for i := Items.Count - 1 downto 0 do { 92 } if Checked[i] then { 93 } begin { 94 } RmDir(Items[i]); { 95 } if IOResult = 0 { 96 } then { 97 } begin { 98 } inc(CCount); // + 1 в счетчик { 99 } Items.Delete(i); { 100 } end; { 101 } end; { 102 } if Items.Count = 0 { 103 } then ShowMessage('Удалено ' + IntToStr(CCount) +' папок.') { 104 } else ShowMessage('Не могу удалить '+intToStr(Items.Count)+' папок'); { 105 } end; { 106 } end; { 107 } { 108 } end. // конец кода
Скопируй сей текст в какой либо файл и давай на него посмотрим.
|go| Готово. У матросов есть вопросов. Я понял, почему ты переназвал функцию ScanEmtyDir, но почему наименование счетчика сменилось на Ccount
|t_| Сменил, чтобы не было конфликта имен с списком CheckListBox1, тут я немного схалтурил, рекомендуется давать осмысленные имена, ну бывает, поленился.
|go| Я не понял эти строки: { 54 } with Form1.CheckListBox1 do { 55 } Checked[Items.Add(Target+'\'+ SR.Name)] := true;
|t_| Это можно было бы написать более подробно (и более понятно)
var n : integer; // номер строки в списке ... n := Form1.CheckListBox1. Items.Add(Target+'\'+ SR.Name); Form1.CheckListBox1.Checked[n] := true;
Но мне не хотелось вводить совершенно лишнюю переменную.
|go| Хорошо, а что это за загадочные точки в строках 43 и 44 { 43 } if (SR.Name <> '.') { 44 } and (SR.Name <> '..')
|t_| Это особенности операционной системы, две точки это обращение к родительской папке, а одна это обращение к текущей папке. Давай сделаем маленький эксперимент. В любой папке создай текстовый файл. Скопируй в него следующий текст
rem начало кода cd .. dir pause rem конец кода
сохрани изменения. теперь переименуй файл, ну например proba.bat Вся соль тут в расширении. Запусти файл на исполнение. В окошке с заголовком cmd.exe ты увидишь распечатку содержимого родительского (для текущего каталога) каталога { кстати, обрати внимание я сразу сбился на досовскую терминологию, напомню, каталог это папка } И вот смотри, вверху, те самые точки. Т.е. операционная система при поиске всегда выдает ссылки на текущую и родительские папки, но нам они абсолютно не нужны и посему мы исключаем их из рассмотрения. Do you understand?
|go|Oh! Yes, yes! А как насчет строчки 49 { 49 } if ((SR.Attr and $10) = $10 ) then
|t_| Ты возможно заметил что в предыдущей строке комментария, дается расшифровка этой строки { 48 } // если это папка Но все таки давай разберемся подробнее. Во первых, открою тебе великую тайну. Папка (folder, каталог, директорий) на самом деле это файл. Да, это просто файл, и отличается он от других только атрибутом. Вот теперь мы добрались до атрибутов. Вызови help на слове TsearchRec и ты увидишь(кроме всего прочего) : faReadOnly $00000001 Read-only files faHidden $00000002 Hidden files faSysFile $00000004 System files faVolumeID $00000008 Volume ID files faDirectory $00000010 Directory files faArchive $00000020 Archive files faAnyFile $0000003F Any file Нас интересует faDirectory но у папки могут быть установлены и другие атрибуты, а устанавливаются они сложением соответствующих значений. Значит для определения, что рассматриваемый файл является папкой сказать if SR.Attr = $10 будет неправильно, т.к. $11, $12, $13, $14, $15 ... - это тоже папки. Поэтому лучше сначала обрезать значение с помощью & В результате операции SR.Attr and $10 останется или 0 или $10, и это мы проконтролируем.
|go| Чёто сложновато.
|t_| Ну, я тут немножко повыёживался, не очень подробно объясняю. Но, я хотел подвести к морали: программист должен очень много знать. В том числе работу операционной системы, и, а это святое - алгебру логики.
|go| Намек понял, не дурак. Надо подучить.
|t_| Ну, что ж, давай на этой оптимистичной ноте, заканчивать сегодняшнее занятие. Сегодня мы сделали полезную, но, не очень необходимую утилитку. В следующий раз мы будем продолжать тему "Рекурсия", я
|go| Все. Теперь работает. Претензий нет.
|t_| Да? А мне вот, не нравится. Программа удаляет с компьютера, что-то не спросив разрешения, а может эта папка и пустая необходима. Давай переделаем программу. Вместо одной кнопки - две: Сканирование и Удаление. И CheckListBox для хранения найденных пустых папок.
|go| Как опять все сначала?
|t_| Ну, не совсем сначала. Кстати вот один из критериев оценки качества программы - легкость ее модификации... Вот, что у меня получилось: // начало кода { 0 } unit Unit1; { 1 } { 2 } interface { 3 } { 4 } uses { 5 } Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, { 6 } Dialogs, StdCtrls, FileCtrl, CheckLst, ExtCtrls; { 7 } { 8 } type { 9 } TForm1 = class(TForm) { 10 } Panel1: TPanel; { 11 } Button1: TButton; { 12 } Button2: TButton; { 13 } CheckListBox1: TCheckListBox; { 14 } Label1: TLabel; { 15 } procedure Button1Click(Sender: TObject); { 16 } procedure FormCreate(Sender: TObject); { 17 } procedure Button2Click(Sender: TObject); { 18 } private { 19 } { Private declarations } { 20 } public { 21 } { Public declarations } { 22 } end; { 23 } { 24 } var { 25 } Form1: TForm1; { 26 } Path : AnsiString; // путь к папке с программой { 27 } Dir : AnsiString; { 28 } CCount : integer; // счетчик удалений { 29 } { 30 } implementation { 31 } { 32 } {$R *.dfm} { 33 } { 34 } function ScanEmtyDir(Target : AnsiString):boolean; { 35 } var { 36 } Found : integer; // результат поиска ( 0 - файл найден ) { 37 } SR : TSearchRec; // запись с параметрами файла { 38 } begin { 39 } Found := FindFirst(Target + '\*.*',$3F,SR); { 40 } result := true; // предположим что папка пуста. { 41 } WHILE Found = 0 DO { 42 } BEGIN { 43 } if (SR.Name <> '.') { 44 } and (SR.Name <> '..') { 45 } then { 46 } begin { 47 } result := false; // значит папка не пуста. { 48 } // если это папка { 49 } if ((SR.Attr and $10) = $10 ) then { 50 } begin // рекурсивный вызов функции { 51 } if ScanEmtyDir( Target+'\'+ SR.Name) { 52 } then // удаление пустой папки { 53 } begin { 54 } with Form1.CheckListBox1 do { 55 } Checked[Items.Add(Target+'\'+ SR.Name)] := true; { 56 } end; { 57 } end; { 58 } end; { 59 } Found := FindNext(SR); { 60 } END;{DosError = 0} { 61 } FindClose(SR); { 62 } end; { 63 } { 64 } procedure TForm1.Button1Click(Sender: TObject); { 65 } begin { 66 } if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) { 67 } then { 68 } begin { 69 } if Dir[length(Dir)]='\' { 70 } then delete(Dir, length(Dir),1); { 71 } CheckListBox1.Items.Clear; { 72 } ScanEmtyDir(Dir); { 73 } Label1.Caption := 'Найдено '+ IntToStr(CheckListBox1.Items.Count) { 74 } +' пустых папок.'; { 75 } end; { 76 } end; { 77 } { 78 } procedure TForm1.FormCreate(Sender: TObject); { 79 } begin { 80 } Path := ExtractFileDir(ParamStr(0)) + '\'; { 81 } Dir := Path; { 82 } end; { 83 } { 84 } procedure TForm1.Button2Click(Sender: TObject); { 85 } var { 86 } i : integer; { 87 } begin { 88 } CCount := 0; { 89 } with Form1.CheckListBox1 do { 90 } begin { 91 } for i := Items.Count - 1 downto 0 do { 92 } if Checked[i] then { 93 } begin { 94 } RmDir(Items[i]); { 95 } if IOResult = 0 { 96 } then { 97 } begin { 98 } inc(CCount); // + 1 в счетчик { 99 } Items.Delete(i); { 100 } end; { 101 } end; { 102 } if Items.Count = 0 { 103 } then ShowMessage('Удалено ' + IntToStr(CCount) +' папок.') { 104 } else ShowMessage('Не могу удалить '+intToStr(Items.Count)+' папок'); { 105 } end; { 106 } end; { 107 } { 108 } end. // конец кода
Скопируй сей текст в какой либо файл и давай на него посмотрим.
|go| Готово. У матросов есть вопросов. Я понял, почему ты переназвал функцию ScanEmtyDir, но почему наименование счетчика сменилось на Ccount
|t_| Сменил, чтобы не было конфликта имен с списком CheckListBox1, тут я немного схалтурил, рекомендуется давать осмысленные имена, ну бывает, поленился.
|go| Я не понял эти строки: { 54 } with Form1.CheckListBox1 do { 55 } Checked[Items.Add(Target+'\'+ SR.Name)] := true;
|t_| Это можно было бы написать более подробно (и более понятно)
var n : integer; // номер строки в списке ... n := Form1.CheckListBox1. Items.Add(Target+'\'+ SR.Name); Form1.CheckListBox1.Checked[n] := true;
Но мне не хотелось вводить совершенно лишнюю переменную.
|go| Хорошо, а что это за загадочные точки в строках 43 и 44 { 43 } if (SR.Name <> '.') { 44 } and (SR.Name <> '..')
|t_| Это особенности операционной системы, две точки это обращение к родительской папке, а одна это обращение к текущей папке. Давай сделаем маленький эксперимент. В любой папке создай текстовый файл. Скопируй в него следующий текст
rem начало кода cd .. dir pause rem конец кода
сохрани изменения. теперь переименуй файл, ну например proba.bat Вся соль тут в расширении. Запусти файл на исполнение. В окошке с заголовком cmd.exe ты увидишь распечатку содержимого родительского (для текущего каталога) каталога { кстати, обрати внимание я сразу сбился на досовскую терминологию, напомню, каталог это папка } И вот смотри, вверху, те самые точки. Т.е. операционная система при поиске всегда выдает ссылки на текущую и родительские папки, но нам они абсолютно не нужны и посему мы исключаем их из рассмотрения. Do you understand?
|go|Oh! Yes, yes! А как насчет строчки 49 { 49 } if ((SR.Attr and $10) = $10 ) then
|t_| Ты возможно заметил что в предыдущей строке комментария, дается расшифровка этой строки { 48 } // если это папка Но все таки давай разберемся подробнее. Во первых, открою тебе великую тайну. Папка (folder, каталог, директорий) на самом деле это файл. Да, это просто файл, и отличается он от других только атрибутом. Вот теперь мы добрались до атрибутов. Вызови help на слове TsearchRec и ты увидишь(кроме всего прочего) : faReadOnly $00000001 Read-only files faHidden $00000002 Hidden files faSysFile $00000004 System files faVolumeID $00000008 Volume ID files faDirectory $00000010 Directory files faArchive $00000020 Archive files faAnyFile $0000003F Any file Нас интересует faDirectory но у папки могут быть установлены и другие атрибуты, а устанавливаются они сложением соответствующих значений. Значит для определения, что рассматриваемый файл является папкой сказать if SR.Attr = $10 будет неправильно, т.к. $11, $12, $13, $14, $15 ... - это тоже папки. Поэтому лучше сначала обрезать значение с помощью & В результате операции SR.Attr and $10 останется или 0 или $10, и это мы проконтролируем.
|go| Чёто сложновато.
|t_| Ну, я тут немножко повыёживался, не очень подробно объясняю. Но, я хотел подвести к морали: программист должен очень много знать. В том числе работу операционной системы, и, а это святое - алгебру логики.
|go| Намек понял, не дурак. Надо подучить.
|t_| Ну, что ж, давай на этой оптимистичной ноте, заканчивать сегодняшнее занятие. Сегодня мы сделали полезную, но, не очень необходимую утилитку. В следующий раз мы будем продолжать тему "Рекурсия", я