Delphi 文件查找findfirst,findnext,findclose


本文整理自网络,侵删。

 

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

var
found:integer;
dirstr:string;
keyword:string;
rc:TSearchRec;

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
dirstr:='c:\windows\'; //任意目录
keyword:='*.exe'; //关键字
s:=dirstr+Trim(keyword); //网上说去与结果不符的项 例如 _.exe~ 等等
found:=findfirst(s,faAnyFile,rc);
while found=0 do
begin
      if (rc.Attr and faDirectory) <> 0 then       // 判断目录
        found:=FindNext(rc)
      else
        begin
          listbox1.Items.Add(rc.Name); //do samething...
          found:=FindNext(rc);
        end

end;
end;

end.

相关阅读 >>

Delphi repeat until 运用

Delphi 存储文件到数据库

Delphi的tstreamreader逐行读取文本文件

Delphi 数组与子界

Delphi 查询当前目录下文件名是否存在

Delphi 判断正在运行的设备是iphone还是ipad

Delphi edit只允许输入数字和小数点

Delphi 消息实现窗口最小化,最大化,关闭(Delphi)

如何访问局域网的access数据库

减小Delphi xe5编译出来的程序体积

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...