@sherwood_littel !
Добрый день!
Для удаления всех файлов в папке можно сделать следующее
Для новых версий Delphi
1
|
TDirectory.Delete('Путь к папке', true); |
для старых версий в рукопашную перебирать файлы в папке
1 2 3 4 5 6 7 8 9 |
var FileName :TSearchRec; i :integer; ... i := FindFirst('Путь к папке\*.*', faAnyFile, FileName); if i = 0 then DeleteFile(FileName.Name); while (FindNext(FileName) = 0) do DeleteFile(FileName.Name); |
Если же необходимо удалять файлы и во вложенных папках, то стоит использовать рекурсию.