delphi SearchRec.Attr and faDirectory

最新推荐文章于 2019-05-18 18:57:05 发布
最新推荐文章于 2019-05-18 18:57:05 发布
阅读量3.3k 收藏 1
点赞数
分类专栏： Delphi 文章标签： delphi
本文解析了Delphi中使用(SearchRec.Attr and faDirectory)进行目录文件查找的不同条件组合的意义，帮助理解如何准确判断是否为目录文件。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

delphi SearchRec.Attr and faDirectory

作者：admin 来源： 日期：2013-3-21 15:50:03 人气： 101 标签：

在目录文件查找中：

(SearchRec.Attr and faDirectory)=0

(SearchRec.Attr and faDirectory)=SearchRec.Attr

在意思上有什么不同么

SearchRec.Attr and faDirectory=faDirectory 呢？

他们是怎么组合的？谢谢

显然由于 1 and 1 =1，0 and 1 =0，因此第一句表示文件属性中没有fadirectory一项，而第二句反之。第三句，因为=运算级别较and为高，因此会出错。

SearchRec.Attr and faDirectory)=0 表示现在找到的这个文件项不是一个目录

(SearchRec.Attr and faDirectory)=SearchRec.Attr 表示现在找到的这个文件项是一个目录，而且是普通目录，即不是隐藏或系统或只读

SearchRec.Attr and faDirectory=faDirectory 表示现在找到的这个文件项是一个目录，但不一定是普通目录，可能是隐藏或系统或只读，要看其它属性而  

(SearchRec.Attr   and   faDirectory)=0   为真时表示SearchRec.Attr中的faDirectory位为0，即不是目录文件  

(SearchRec.Attr   and   faDirectory)=SearchRec.Attr   为真时表示SearchRec.Attr中除faDirectory位外的其他属性位肯定为0  

如果想判断找到的是不是目录文件，用第二种方法是错误的。  

当SearchRec.Attr=faDirectory时，该判断为真，而此时找到的是目录文件。  

当SearchRec.Attr=0时，该判断为真，可现在找到的肯定不是目录文件。  

   

SearchRec.Attr   and   faDirectory=faDirectory   为真时表示找到的文件为目录文件
用delphi语言写一个读取文件夹内所有文件的路径
weixin_42608299的博客
12-29 960
你可以使用 Delphi 的 FindFirst 和 FindNext 函数来扫描文件夹内的文件。首先，你需要使用 TSearchRec 结构体来存储文件信息。然后，你可以使用 FindFirst 函数来查找文件夹内的第一个文件，并使用 FindNext 函数来查找剩余的文件。下面是一个示例代码： uses Windows, SysUtils; procedure ReadFilePaths(c...
Delphi5实现图片查看器
weixin_52116519的博客
08-16 761
这段代码的逻辑主要分为几个部分，处理用户通过文件对话框选择图片文件、遍历指定文件夹中的所有图片文件、以及找到用户选择的图片文件在遍历结果中的索引。（一个编辑框控件，用于显示当前图片的文件名或路径）更新为当前加载的图片的文件名或路径，这里直接使用了。（一个用于跟踪当前图片在图片列表中的索引的变量）是否大于0。，存储了图片文件的路径或名称）中加载对应的图片文件，并将其显示在。不大于0（即已经是第一张图片或没有图片），则通过。大于0，说明有上一张图片可以显示，那么通过。减1，以指向列表中的上一张图片。
Delphi 文件查找函数
cuiweigk19423的博客
05-18 909
{--------------------------------------- 文件查找函数 SearchFile 参数说明: sFileName: 要查找的文件名称 sRootDir: 指定在哪个目录中查找...
（算法设计技巧与分析）BinarySearchrec
lonely_Quan的专栏
03-10 727
#include using namespace std; int binarysearch(int a[],int low,int high,int x); int main() { int a[11],x,result; for(int i=0;i<11;i++) {a[i]=i*2;cout<<a[i]<<" ";} cout<<endl; cin>>x; result=bina
关于TSearchRec的使用
weixin_30819085的博客
05-19 399
今天有人在QQ里问 var SearchRec: TSearchRec;begin ... if(SearchRec.Attr = faAnyFile) then ...end; 这段代码为什么不能正确运行。我看了一下TSearchRec的帮助，里面有两段话很重要： Note: The faReadOnly constant has the same name as the enum...
delphi中查找指定文件的例程
wozengcong的专栏
10-18 3095
代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl; type TForm1 = class(TForm) Button1: TButton; ListBox1: TListBox; pr
delphi 遍历所有文件夹
12-11
if (SearchRec.Attr and faDirectory) = faDirectory then begin // 在这里处理找到的文件夹 Writeln('Found folder: ', SubDirectory); // 递归调用以遍历子文件夹 TraverseFolders(SubDirectory); end; ...
如何在Delphi中遍历所有文件？
最新发布
12-11
if (SearchRec.Attr and faDirectory) = faDirectory then begin // 递归遍历子目录 TraverseFiles(FullPath); end else begin // 处理文件 Writeln('File: ', FullPath); end; end; // 查找下一个...
用delphi语言写一个遍历整个文件夹，并列出指定文件类型的路径
02-06
if (SearchRec.Attr and faDirectory) = 0 then begin if ExtractFileExt(SearchRec.Name) = FileType then Writeln(Path + '\' + SearchRec.Name); end else if (SearchRec.Name <> '.') and (SearchRec.Name...
delphi获得某个磁盘或是文件夹的所有子目录
06-21
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then // 排除当前目录和父目录 lStringList.Add(SearchRec.Name); // 添加到列表 end; i := FindNext(SearchRec); end; FindClose(SearchRec); ...
遍历指定文件夹下所有文件
07-29
递归遍历指定文件夹下所有文件 FindFirstFile
delphi4pro
06-18
delphi 4 pro 带序列号，注意，本软件比较旧，只能在win95 win98上安装，不兼容win7 win10，仅供收藏，怀旧，谨慎下载，实际使用建议下载delphi的新版
Delphi如何遍历目录中的各个子目录
weixin_33807284的博客
01-07 331
下面的内容是创建了一个遍历目录的控件。 AllDirs的单元文件中。这个单元文件中具有内建的堆栈，并有一个叫做TRunDirs的对 象，该对象知道如何遍历子文件夹。需要说明的是，TRunDirs是TComponent的派生对象 。不可见控件经常是直接从TComponent派生出来的。根据定义，不可见控件是不可能从 TCustomControl , TGraphicControl或者...
网络文本函数(三)
huxianbo的专栏
07-21 425
<br />function YzListViewColumnCount(mHandle: THandle): Integer;<br />begin<br />Result := Header_GetItemCount(ListView_GetHeader(mHandle));<br />end; { ListViewColumnCount }<br />function YzGetListViewText(mHandle: THandle; mStrings: TStrings): Boolean;<b
文件历遍搜索详解
Kingwolves
10-21 2293
文件历遍看搜索主要用二个Windows API,分别是 FindFirst 和FindNext.他们的返回类型为TSearchRecTSearchRec结构:TSearchRec = record   Time: Integer;   Size: Integer;   Attr: Integer;   Name: TFileName;   ExcludeAttr: Integer;   FindH
delphi获取目录下所有文件夹名
weixin_30500105的博客
03-22 861
delphi获取目录下所有文件名 procedure SearchFile(Path:String);//注意,path后面要有'\';var 　　SearchRec:TSearchRec; 　　Found:Integer;begin 　　Found:=FindFirst(path+'*.*',faAnyFile,SearchRec); 　　while Found=0 do 　　b...
用 _findfirst 和 _findnext 查找文件(转)
samwang1987的博客
12-17 831
转自：http://blog.sina.com.cn/s/blog_53988e5a0101dvlf.html     一、这两个函数均在io.h里面。 二、首先了解一下一个文件结构体： struct _finddata_t {     unsigned    attrib;     time_t      time_create;        time_t      t
目录文件递规
xwchen的专栏
11-24 791
     fr:=FindFirst(Path,faAnyFile,sr);    while fr=0 do    begin       if (sr.Attr=faDirectory)and(sr.Name..) then           FindAll(path+sr.Name)       else          begin            showmessage(
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值