zoukankan      html  css  js  c++  java
  • TSearchRec类型

    (1)TSearchRec是一个记录类型,在delphi帮助文档下可以看到其定义:
    TSearchRec是一个文件信息的纪录(Record)类型
    在Windows下原型:
    type
    TSearchRec = record
    Time: Integer;
    Size: Integer;
    Attr: Integer;
    Name: TFileName;
    ExcludeAttr: Integer;
    FindHandle: THandle;
    FindData: TWin32FindData;
    end;
    (2).FindFirst函数在delphi帮助下的定义:
    function FindFirst(const Path: string; Attr:
    Integer; var F: TSearchRec): Integer;
    其中有一句:FindFirst returns 0 if a file was successfully
    located
    也就是说,当成功找到文件时,返回0.

    (3).sr.Attr是查找的文件属性(attribute
    Files).faDiractory是目录文件
    整句的意思
    如果查找的文件类型是目录文件那么 ...
    (4).当文件没有查找完毕(还能查找到下一个文件)..

    *****************************************************

    FindFirst是用来寻找目标目录下的第一个文件,FindNext则是寻找下一个 TSearchRec是一个文件信息的纪录,当FindFirst返回SearchRec时,你可以通过SearchRec.Name获取文件名,以及SearchRec.Size获取文件大小等信息。 

    TSearchRec类型定义如下:     

    type     

    TSearchRec = record     

    Time : Integer;     

    Size : Integer;     

    Attr : Integer;     

    Name : TFileName;     

    ExcludeAttr : Integer;     

    FindHandle : THandle;     

    FindData : TWin32FindData;     

    end;          

    当利用FindFirst和FindNext函数找到一个文件后,利用这个类型可以获得文件的属性、大小和修改时间等信息。

    var SearchRec:TSearchRec;   //搜索对象

    ext,AppPath:string;

    begin    listbox1.Clear;        //清空列表框   

    AppPath:=edit1.text;   //设置要搜索的目标目录   

    ext:='*.*';            //设置要搜索的文件后缀名

       FindFirst(AppPath+ext,faAnyFile,SearchRec);    //-faDirectory    listbox1.Items.Add(SearchRec.Name);           //添加文件名称   

    while FindNext(SearchRec)=0 do      

    listbox1.Items.Add(SearchRec.Name);        //添加文件名

    end;

    //更多注释:   //TSearchRec 结构是内涵文件大小、名称、属性与时间等信息   //TSearchRec 中的属性是一个整数值, 可能的值有:   //faReadOnly  1   只读文件   //faHidden    2   隐藏文件   //faSysFile   4   系统文件   //faVolumeID  8   卷标文件   //faDirectory 16  目录文件   //faArchive   32  归档文件   //faSymLink   64  链接文件   //faAnyFile   63  任意文件   //s 的值也可以使用?通配符,好像只支持7个?, 如果没有条件就是*, 譬如: C:\*   //实际使用中还应该在 repeat 中提些条件, 譬如判断如果是文件夹就递归搜索等等
     

    function FindFirst(const Path: string; //包含路径和通配符的字符串,如f:\test\*.*
                             Attr: Integer; //文件属性
                           var  F: TSearchRec //一个结构(或叫记录)
                       ): Integer;    //返回值,成功返回0 ,失败返回-1
  • 相关阅读:
    为什么 PCB 生产时推荐出 Gerber 给工厂?
    Fedora Redhat Centos 有什么区别和关系?
    【KiCad】 如何给元件给元件的管脚加上划线?
    MCU ADC 进入 PD 模式后出现错误的值?
    FastAdmin 生产环境升级注意
    EMC EMI 自行评估记录
    如何让你的 KiCad 在缩放时不眩晕?
    KiCad 5.1.0 正式版终于发布
    一次单片机 SFR 页引发的“事故”
    java基础之集合
  • 原文地址:https://www.cnblogs.com/yplong/p/2850143.html
Copyright © 2011-2022 走看看