![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
Удаление содержимого каталогаDelphi , Файловая система , Директории
Автор: demon-777 { **** UBPFD *********** by delphibase.endimus.com **** >> Зависимости: Windows, SysUtils, Classes, Masks Автор: demon-777, demon-777@yandex.ru, Питер Copyright: Dimka Maslov Дата: 26 мая 2002 г. ***************************************************** } procedure DeleteFiles(Path: string); var Mask: string; SearchRec: TSearchRec; FindResult: Integer; List: TStringList; i: Integer; begin Mask := ExtractFileName(Path); if Mask = '' then Mask := '*.*'; Path := ExtractFilePath(Path); if Path = '' then Path := IncludeTrailingBackslash(GetCurrentDir); List := TStringList.Create; try FindResult := FindFirst(Path + '*.*', faAnyFile, SearchRec); try while FindResult = 0 do with SearchRec do begin if ((Attr and faDirectory) = 0) and MatchesMask(Name, Mask) then List.Add(Name); FindResult := FindNext(SearchRec); end; for i := 0 to List.Count - 1 do DeleteFile(Path + List[i]); finally FindClose(SearchRec); end; finally List.Free; end; end; Программный код на языке Delphi для удаления содержимого директории: Зависимости Код требует установки следующих зависимостей: 1. Windows - встроенная зависимость для любого приложения Windows. 2. SysUtils - стандартная единица Delphi, предоставляющая различные функции полезности. 3. Classes - еще одна стандартная единица, предоставляющая классы и интерфейсы для объектно-ориентированного программирования. 4. Masks - это не часть стандартной дистрибуции Delphi, поэтому предполагается, что это custom-made unit. Автор и информация о правах Код был написан demon-777 и Piter, а права на него принадлежат Dimka Maslov. Дата создания - 26 мая 2002 года. Процедура DeleteFiles
Эта процедура принимает путь директории в виде параметра входных данных и удаляет все файлы в этой директории, соответствующие указанному маске. Вот что код делает:
1. Извлекает имя файла из пути ввода с помощью Обработка ошибок
Код использует блоки try-finally для обеспечения того, что ресурсы (например, объект Альтернативное решение
Если вы ищете более современное или эффективное решение, можно рассмотреть использование компонента Delphi
Обратите внимание, что это решение предполагает Delphi 2009 или позднее. В более ранних версиях Delphi может потребоваться использование Описана процедура 'DeleteFiles' на языке Delphi, которая удаляет содержимое каталога с помощью поиска файлов и удаления их методом DeleteFile. Комментарии и вопросыПолучайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Директории ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |