{ 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