Delphi——FindFirst学习

最新推荐文章于 2022-07-11 07:38:00 发布
最新推荐文章于 2022-07-11 07:38:00 发布
阅读量1.7k 收藏
点赞数
分类专栏： Delphi

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上使用

 

yonghenghaha
关注
专栏目录
delphi控件使用
achs24540的博客
10-27 2442
Standard页 1- Tlistbox控件 重要属性items.* 举例，界面设计如下左，执行结果如下右： 代码为 procedure TForm1.Button1Click(Sender: TObject); begin edit1.Text := listbox1.Items.CommaText; edit2.Text := listbo...
Delphi DBGrid总结
beyondqd的专栏
08-25 1万+
<br />在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段 之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编 程，我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色，以及相关的字体的大小和风格。<br />     以下的示例程序演示了对 DBGrid 各属性的 设置，使 Delphi 显示的表格就像网页中的表格一样漂亮美观。<br />     示例程序的运行：<br
Delphi数据库操作FindFirst方法实例..rar
04-17
Delphi数据库操作FindFirst方法实例..rar
delphi下文件查找findfirst
热门推荐
找个地方放一下
04-18 1万+
FindFirst  是用来寻找目标目录下的第一个文件， FindFirst函数在delphi帮助下的定义: function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer; 其中有一句:FindFirst returns 0 if a file was successfully loc
delphi查找文件
weixin_34270606的博客
03-01 261
unit unitFrmMain;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; ListBox1: TListBox; ...
Makefile详解——从入门到精通
墨鱼菜鸡
07-11 818
转自ChinaUnix，作者gunguymadman，陈皓。链接地址：http://www.chinaunix.net/jh/23/408225.html 陈皓 CSDN 博客：http://blog.csdn.net/haoel/article/details/2886 http://blog.csdn.net/ruglcc/article/deta...
dbgrid使用大全(delphi)
beyondqd的专栏
08-25 1万+
<br /> <!-- /* Font Definitions */ @font-face {font-family:宋体; panose-1:2 1 6 0 3 1 1 1 1 1; mso-font-alt:SimSun; mso-font-charset:134; mso-generic-font-family:auto; mso-font-pitch:variable; mso-font-signature:3 135135232 16 0 262145 0;}
Python入门第1课——打印（只读课堂）
Jeason_Lan
10-06 2959
Python入门第1课——打印（只读课堂）
DELPHI搜索文件的示例
10-31
搜索TXT 文件的示例unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls; type TForm1 = class(TForm) ListBox1: TListBox; Memo2: TMemo; Panel1: TPanel; Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; ButtonSearchFile: TButton; FolderPath: TEdit; FileExt: TEdit; ProgressBar1: TProgressBar; procedure ButtonSearchFileClick(Sender: TObject); procedure ListBox1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } procedure SearchFile1(FileName: string; FindText: string); function MakeFileList(Path, FileExt: string): TStringList; function FileInUsed(FileName: TFileName): Boolean; public { Public declarations } end; var Form1: TForm1; implementation uses StrUtils; {$R *.dfm} { Search Options KeyWord in file FileName FileSize FileCreateTime FileModifyTime keyword filepath openfile found addListbox } var FileNamePathList, FileNameList: TStringList; procedure TForm1.FormCreate(Sender: TObject); begin FileNameList := TStringList.Create; FileNamePathList := TStringList.Create; end; { if FileInUsed ('D:\Administrator\Documents\MyProjects\FileSearch\Win32\Debug\Project1.exe') then ShowMessage('File is in use.') else ShowMessage('File not in use.'); } function TForm1.FileInUsed(FileName: TFileName): Boolean; var HFileRes: HFILE; begin Result := False; if not FileExists(FileName) then Exit; // 如果文件不存在，返回false HFileRes := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); Result := (HFileRes = INVALID_HANDLE_VALUE); if not Result then CloseHandle(HFileRes); end; procedure TForm1.SearchFile1(FileName: string; FindText: string); var SearchList: TStringList; begin try SearchList := TStringList.Create; if FileExists(FileName) and (not FileInUsed(FileName)) then begin SearchList.LoadFromFile(FileName); if Boolean(Pos(UpperCase(FindText), UpperCase(SearchList.Text))) then begin FileNameList.Add(ExtractFileName(FileName)); FileNamePathList.Add(FileName); end; end; finally SearchList.Free; end; end; procedure TForm1.ButtonSearchFileClick(Sender: TObject); var I, n: Integer; List: TStringList; begin try ButtonSearchFile.Caption := 'SearchFile'; List := TStringList.Create; List.Clear; FileNameList.Clear; FileNamePathList.Clear; List := MakeFileList(FolderPath.Text, FileExt.Text); ProgressBar1.Max := List.Count; for I := 0 to List.Count - 1 do begin Application.ProcessMessages; SearchFile1(List[I], Edit1.Text); ProgressBar1.Position := I; end; ListBox1.Items.Text := FileNameList.Text; ButtonSearchFile.Caption := IntToStr(FileNamePathList.Count) + ' 条'; finally List.Free; end; end; { 这个过程得显示进度 } function TForm1.MakeFileList(Path, FileExt: string): TStringList; var sch: TSearchrec; begin Result := TStringList.Create; if RightStr(Trim(Path), 1) '\' then Path := Trim(Path) + '\' else Path := Trim(Path); if not DirectoryExists(Path) then begin Result.Clear; Exit; end; if FindFirst(Path + '*', faAnyfile, sch) = 0 then begin repeat Application.ProcessMessages; if ((sch.Name = '.') or (sch.Name = '..')) then Continue; if DirectoryExists(Path + sch.Name) then begin Result.AddStrings(MakeFileList(Path + sch.Name, FileExt)); end else begin if (UpperCase(ExtractFileExt(Path + sch.Name)) = UpperCase(FileExt)) or (FileExt = '.*') then Result.Add(Path + sch.Name); end; until FindNext(sch) 0; FindClose(sch); end; end; procedure TForm1.ListBox1Click(Sender: TObject); var s: string; txt: string; begin if not FileExists(FileNamePathList[ListBox1.ItemIndex]) then Exit; Memo2.Lines.LoadFromFile(FileNamePathList[ListBox1.ItemIndex]); Caption := FileNamePathList[ListBox1.ItemIndex]; txt := Form1.Memo2.Text; if Boolean(Pos(UpperCase(Edit1.Text), UpperCase(txt))) then begin Memo2.SetFocus; Memo2.SelStart := Pos(UpperCase(Edit1.Text), UpperCase(txt)) - 1; Memo2.SelLength := Length(Edit1.Text); end; end; end.
delphi函数_FileSearch_查找一个文件
02-25
delphi函数_FileSearch_查找一个文件
遍历目录查找文件delphi
01-20
遍历目录查找文件遍历目录查找文件遍历目录查找文件遍历目录查找文件遍历目录查找文件
Delphi查找文件源码（含思路和代码步骤）
04-19
Delphi查找文件源码（含思路和代码步骤）.rar
Delphi文件查找示例
03-11
Delphi操作文件的一个简单函数示例，主要是用到Win31中的DriveComboBox和DirectoryListBox两个组件及FindFirst，FindNext和FindClose三个文件操作函数。/////////////////////////////////////////////////若有疑问，欢迎交流QQ:187106433E-Mail:xixuan2001@163.comMSN:myleaves2008@hotmail.com////////////////////////////////////////////////
FindFirst
penjie0418的专栏
01-17 1068
Unit: SysUtils Delphi 语法: function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer; FindFirst函数查找由Path参数指定的目录中的第一个匹配Path中隐含的文件名并且符合Attr参数属性的文件，由参数F将结果返回。如果成功找到文件Fin
delphi 搜索文件夹_如何使用Delphi搜索文件和文件夹
cumao2792的博客
09-12 1650
delphi 搜索文件夹 When looking for files, it is often useful and necessary to search through subfolders. Here, see how to use Delphi's strength to create a simple, but powerful, find-all-matching-files pro...
delphi中查找指定文件的例程
wozengcong的专栏
10-18 3039
代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl; type TForm1 = class(TForm) Button1: TButton; ListBox1: TListBox; pr
Delphi 文件查找函数
cuiweigk19423的博客
05-18 851
{--------------------------------------- 文件查找函数 SearchFile 参数说明: sFileName: 要查找的文件名称 sRootDir: 指定在哪个目录中查找...
delphi FindFirst
最新发布
05-31
Delphi的FindFirst函数用于查找指定目录下的第一个匹配文件或目录。它的语法如下： ``` function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer; ``` 其中，Path表示要查找的目录或...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值