如何覆盖文件夹？

Question

为什么我这儿看你的文章时，一点delphi风格也没有？
应该提议这儿解决一下空格、换行的问题！

Answer 1

delphi风格？
这是从 <<Delphi 5 开发人员指南>> 的cd 上拷贝的代码。关键是谁能解决问题？

Answer 2

我已经搞定，但不是用删除目录的方法。
我使用递归函数做的，复制目录中的文件和文件夹。但下面的
FindResult := FindFirst(APath+FileName,faAnyFile+faHidden+
                          faSysFile+faReadOnly,FSearchRec);
为什么我的程序中faReadOnly出错？

Answer 3

FindResult := FindFirst(APath+FileName,SysUtils.faAnyFile+SysUtils.faHidden+
                          SysUtils.faSysFile+SysUtils.faReadOnly,FSearchRec);