码迷,mamicode.com
首页 > Windows程序 > 详细

delphi 遍历文件

时间:2016-11-26 03:10:06      阅读:265      评论:0      收藏:0      [点我收藏+]

标签:sts   arch   sch   HTST   str   遍历目录   rac   sys   blog   

///<summary>遍历文件</summary>
///<param>AList: 遍历所得文件列表,全路径</param>
///<param>APath: 遍历目录</param>
///<param>AExt: 遍历文件扩展名</param>
procedure gFileList(AList: TStringList; const APath, AExt: String);
var
  str: String;
  sch:TSearchrec;
begin
  if AList = nil then Exit;
  AList.Clear;

  str := Trim(APath);
  if RightStr(str, 1) <> ‘\‘ then
    str := str + ‘\‘;

  if not DirectoryExists(str) then Exit;

  if SysUtils.FindFirst(str + ‘*‘, faAnyfile, sch) = 0 then
  begin
    repeat
       Application.ProcessMessages;
       if ((sch.Name = ‘.‘) or (sch.Name = ‘..‘)) then Continue;
       if DirectoryExists(str + sch.Name) then
         gFileList(AList, str + sch.Name, AExt)
       else begin
         if (UpperCase(ExtractFileExt(str + sch.Name)) = UpperCase(AExt)) or (AExt=‘.*‘) then
           AList.Add(str + sch.Name);
       end;
    until FindNext(sch) <> 0;
    SysUtils.FindClose(sch);
  end;
end;

  

delphi 遍历文件

标签:sts   arch   sch   HTST   str   遍历目录   rac   sys   blog   

原文地址:http://www.cnblogs.com/btxz/p/6103335.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!