CnPack Forum - Powered by Discuz! Board

Subject: 关于cnfilepacker控件的问题 [Print This Page]

Author: 笑天 Time: 2011-1-14 22:57 Subject: 关于cnfilepacker控件的问题

我使用了cnfilepacker备用一个目录，再删除，但只能删全部文件，空目录删不了。是被使用中不能删。后来发现用了FindFirst，但没有用SysUtils.FindClose退出（只用FindClose不行的，window内有一个同名的FindClose参数不同）。我加了一句，问题好像解决了，希望大大们看看是不是这个问题。

Attachment: CnFilePacker.pas (2011-1-14 22:57, 20.45 K) / Download count 55
http://bbs.cnpack.org/attachment.php?aid=808

Author: Passion Time: 2011-1-15 11:01

感谢报告。确实如此。

Author: 笑天 Time: 2011-1-16 22:40

我原来是改为
if FindFirst(ADirName, faAnyFile, srec) = 0 then
   begin
   ....
   SysUtils.FindClose(srec);
   end;
但这样改以后会不会出现文件夹为空时FindClose没有执行而出现同样的问题呢，有没有改为
if FindFirst(ADirName, faAnyFile, srec) = 0 then
   begin
   ....
   end;
   SysUtils.FindClose(srec);
的必要？由于是业余编程的现在没有时间试

[ 本帖最后由笑天于 2011-1-16 22:42 编辑 ]

Welcome to CnPack Forum (http://bbs.cnpack.org/)