Delphi 文件查找记录类型 - TSearchRec

本文整理自网络，侵删。

 
SysUtils单元下的TSearchRec是一个记录类型，主要通过FindFirst, FindNext, and FindClose使用。

接上一篇举例说明TSearchRec常用成员

//sysGetFileList(List,'c:\','*.doc,*.exe');  List通过查找添加多文件  
//sysGetFileList(List,'c:\','*.doc');   List通过查找添加单文件  
procedure sysGetFileList(List: TStrings; SourFile,FileName: string);  
var  
  S_Path: String;  
  TmpList,S_FileList: TStringList;  
  FileRec,SubFileRec: TSearchRec;  
  I: Integer;  
  IsFound: Boolean;  
  SysTime: TSystemTime;  
  FileTime: TFileTime;  
begin  
  S_Path := IncludeTrailingPathDelimiter(Trim(SourFile));     //单元SysUtils中判断末尾是否包含文件夹路径符号'\'，没有的则补全  
  if not DirectoryExists(S_Path) then  
  begin  
    List.Clear;  
    Exit;  
  end;  
  
  S_FileList := TStringList.Create;  
  try  
    S_FileList.CommaText := FileName;  
  
    TmpList := TStringList.Create;  
    for I := 0 to S_FileList.Count - 1 do  
    begin  
      if FindFirst(S_Path + S_FileList[I],faAnyFile,FileRec) = 0 then  
      repeat  
        if ((FileRec.Attr and faDirectory) <> 0) then  
        begin  
          if ((FileRec.Name <> '.') and (FileRec.Name <> '..')) then  
            sysGetFileList(TmpList,IncludeTrailingPathDelimiter(S_Path + FileRec.Name),FileName);  
        end  
        else  
        begin  
          if ((FileRec.Attr and faDirectory) = 0) then  
          begin  
            TmpList.Add(S_Path + FileRec.Name);  
            TmpList.Add('FileRec.Size:' + IntToStr(FileRec.Size));        //文件大小  
            TmpList.Add('FileRec.Name:' + FileRec.Name);          //文件名  
            TmpList.Add('FileRec.Attr:' + IntToStr(FileRec.Attr));        //文件属性  
            TmpList.Add('FileRec.ExcludeAttr:' + IntToStr(FileRec.ExcludeAttr));  //未知  
            TmpList.Add('FileRec.FindHandle:' + IntToStr(FileRec.FindHandle));        //文件句柄  
            FileTimeToLocalFileTime(FileRec.FindData.ftCreationTime,FileTime);        //文件创建时间  
            FileTimeToSystemTime(FileTime,SysTime);  
            TmpList.Add('FileRec.FindData.ftCreationTime:' + DateTimeToStr(SystemTimeToDateTime(SysTime)));  
            FileTimeToLocalFileTime(FileRec.FindData.ftLastAccessTime,FileTime);  //文件最后 ?? 时间     
            FileTimeToSystemTime(FileTime,SysTime);  
            TmpList.Add('FileRec.FindData.ftLastAccessTime:' + DateTimeToStr(SystemTimeToDateTime(SysTime)));  
            FileTimeToLocalFileTime(FileRec.FindData.ftLastWriteTime,FileTime);       //文件最后修改时间  
            FileTimeToSystemTime(FileTime,SysTime);  
            TmpList.Add('FileRec.FindData.ftLastWriteTime:' + DateTimeToStr(SystemTimeToDateTime(SysTime)));  
            TmpList.Add('FileRec.FindData.nFileSizeHigh:' + FloatToStr(FileRec.FindData.nFileSizeHigh));  //文件大小Hight值  
            TmpList.Add('FileRec.FindData.nFileSizeLow:' + FloatToStr(FileRec.FindData.nFileSizeLow));  
  
  
            TmpList.Add('FileRec.TimeStamp:' + DateTimeToStr(FileRec.TimeStamp)); //实际值=文件最后修改时间<pre name="code" class="delphi">  
          end;  
        end;  
      until FindNext(FileRec) <> 0;  
    end;  
    FindClose(FileRec.FindHandle);  
  
    if TmpList.CommaText <> '' then     //空文件夹不添加路径  
    begin  
      if List.CommaText <> '' then  
        List.CommaText := List.CommaText + List.Delimiter + TmpList.CommaText  
      else  
        List.CommaText := TmpList.CommaText;  
    end;  
  finally  
    FreeAndNil(TmpList);  
    FreeAndNil(S_FileList);  
  end;

测试文件：aa.docx；

返回结果

E:\***\Out\aa.docx
FileRec.Size:11619
FileRec.Name:aa.docx
FileRec.Attr:32
FileRec.ExcludeAttr:0
FileRec.FindHandle:31054560
FileRec.FindData.ftCreationTime:2015-02-07 10:37:00
FileRec.FindData.ftLastAccessTime:2015-02-07 11:16:15
FileRec.FindData.ftLastWriteTime:2015-02-07 11:16:15
FileRec.FindData.nFileSizeHigh:0
FileRec.FindData.nFileSizeLow:11619
FileRec.TimeStamp:2015-02-07 11:16:15
 

相关阅读 >>

Delphi读写二进制文件

Delphi 存储过程与函数的区别

Delphi 中tresourcestream流使用

Delphi datasnap 获取客户端ip

Delphi 快速检测是否联网

Delphi 获取文件夹时间

Delphi firedac 获取 insert 记录的自增 id

Delphi nativeexcel获取excel所有列

Delphi idhttp1post上传图片

Delphi xe5 手机应用开发经验技巧

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 文件查找记录类型 - TSearchRec