CnPack Forum


 
Subject: 关于cnfilepacker控件的问题
笑天
新警察
Rank: 1



UID 57998
Digest Posts 0
Credits 10
Posts 3
点点分 10
Reading Access 10
Registered 2011-1-14
Status Offline
Post at 2011-1-14 22:57  Profile | Blog | P.M. 
关于cnfilepacker控件的问题

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


Attachment: CnFilePacker.pas (2011-1-14 22:57, 20.45 K)
Download count 55
Top
Passion (LiuXiao)
管理员
Rank: 9Rank: 9Rank: 9


UID 359
Digest Posts 19
Credits 6750
Posts 3551
点点分 6750
Reading Access 102
Registered 2004-3-28
Status Offline
Post at 2011-1-15 11:01  Profile | Blog | P.M. 
感谢报告。确实如此。
Top
笑天
新警察
Rank: 1



UID 57998
Digest Posts 0
Credits 10
Posts 3
点点分 10
Reading Access 10
Registered 2011-1-14
Status Offline
Post at 2011-1-16 22:40  Profile | Blog | P.M. 
我原来是改为
    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 编辑 ]
Top
 




All times are GMT++8, the time now is 2024-3-29 04:21

    本论坛支付平台由支付宝提供
携手打造安全诚信的交易社区 Powered by Discuz! 5.0.0  © 2001-2006 Comsenz Inc.
Processed in 0.006874 second(s), 8 queries , Gzip enabled

Clear Cookies - Contact Us - CnPack Website - Archiver - WAP