注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

Delphi——FindFirst学习  

2013-10-20 18:17:25|  分类: delphi xe5 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

Delphi——FindFirst学习  


FindFirst在SysUtils中声明 原型为
Fucntion FindFirst(const Path:String;Attr:Integer;Var F:TSearchRec):Integer;

描述:
从指定的目录中搜索第一个给定属性文件实例
返回结果保存到参数F中,F参数是一个文件结构包含文件信息
成功返回0,否则返回错误代码

参数Path:包含路径和搜索模糊文件名,包括通配符: './text/*.*'搜索test目录下的全部文件
参数Attr:指定文件属性类型
     faReadOnly:只读文件
     faHidden:隐藏文件
     faSysFile:系统文件
     faVolumeID:卷标文件
     faDirectory:目录文件
     faArchive:归档文件//压缩文件
     faAnyFile:任何文件

Attr可以通过组合使用 faReadOnly+faSysFile

注意:
使用FindFist是要分配内存的使用完之后必须用FindClose关闭
一些属性只能在特定的平台上使用 faVolumeID和faArchivei不能在Unix和mac上使用

  1. //遍历文件夹下所有文件  
  2. function TForm1.GetFileList(ASourFile: string): TStringList;  
  3. var sour_path,sour_file: string;  
  4.     TmpList:TStringList;  
  5.     FileRec:TSearchrec;  
  6. begin  
  7.    sour_path:=ExtractFilePath(ASourFile);  
  8.    sour_file:=ExtractFileName(ASourFile);  
  9.    TmpList:=TStringList.Create;  
  10.    TmpList.Clear;  
  11.    if DirectoryExists(sour_path) then  
  12.    begin  
  13.      if FindFirst(sour_path+sour_file,faAnyfile,FileRec) = 0 then  
  14.      repeat  
  15.         if ((FileRec.Attr and faDirectory) = 0then  
  16.            begin  
  17.              TmpList.Add(sour_path+FileRec.Name);  
  18.            end;  
  19.      until FindNext(FileRec)<>0;  
  20.      SysUtils.FindClose(FileRec);  
  21.    end;  
  22.    result := TmpList;  
  23. end;  
  评论这张
 
阅读(457)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017