Board logo

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/) Powered by Discuz! 5.0.0