Void __fastcall tForm1::Button2Click(tObject *Sender)

{Memo1->Clear();

ChDir(aDirectory);

Clear();

Memo1->Lines->Add("");

if (n)

Memo1->Lines->Add("Удалено файлов: "+IntToStr(n));

else

Memo1->Lines->Add("В указанном каталоге нет файлов, которые надо удалить");}

6. Задание для самостоятельного выполнения:

1. Допишите в описанную процедуру Clear для обработки подкаталогов выбранного каталога

//обработка подкаталогов текущего каталога

if (FindFirst("*.*", faDirectory, SearchRec)==0) //проверка расширения файла

do

if ((SearchRec.Attr & faDirectory)==SearchRec.Attr) {

if ((SearchRec.Name !=".") && (SearchRec.Name !="..")) //в каталоги "." и ".." входить не надо!

{ ChDir(SearchRec.Name);

Clear();

ChDir("..");

};

}

while (FindNext(SearchRec)==0);

2. Предусмотрите удаление файлов с расширением "tds", кроме описанного расширения "obj"

3. Предусмотрите удаление файлов – резервных копий (~bpr, ~dfm, ~h, ~cpp) – первый символ в имени файла ‘~’. (FileExt[1] =='~').

4. Предусмотрите автоматическое сохранение статистики удаленных файлов на диске U в файле stat.txt

5. Добавьте контекстное меню на форму, содержащую команды (О программе, Обзор, Выполнить)

6. Добавьте главное меню на форму, содержащую команды (О программе, Обзор, Выполнить)

7. Добавьте главное меню на форму, содержащую команды (О программе, Обзор, Выполнить). Предусмотрите удаление файлов с расширением "obj", "tds", файлов – резервных копий (~bpr, ~dfm, ~h, ~cpp).

8. Выполните 3.1, 3.2, 3.3 задания.

9. Добавьте главное меню на форму, содержащую команды (О программе, Обзор, Выполнить, Сохранить).

10. Добавьте контекстное меню на форму, содержащую команды (О программе, Обзор, Выполнить, Сохранить). Выполните 3.1, 3.2, 3.3 задания.

11. Добавьте главное меню на форму, содержащую команды (О программе, Обзор, Выполнить, Сохранить).

12. Добавьте контекстное меню на форму, содержащую команды (О программе, Обзор, Выполнить, Сохранить).Выполните 3.1, 3.2, 3.3 задания.

Сдайте работу преподавателю

Вопросы для контроля и самоконтроля:

1. Операторы сравнения на языке С++

2. Объясните процедуру очистки каталога.

Рекомендуемая литература

1. Джесс Либерти, Освой самостоятельно C++, М.-07

2. Р.Лафоре, Объектно-ориентированное программирование в С++, М.-03

3. С.В.Фесько Программирование на языке С++, Волгоград-07

4. Никита Культин С++ в задачах и примерах, СПб-2005

5. Основы алгоритмизации и программирования / О.А. Голицына, М-2002

69