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
|
