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 [函数] unicode 检查字符串是否含中文字

Delphi xp下的进程静音技术

Delphi webbrowser设置自己定义user-agent

Delphi 利用unigui中的tunipagecontrol实现多页面

Delphi tfinddialog treplacedialog对话框在memo中的使用

Delphi 对话框初始地址initialdir

Delphi的rtti实现数据集的简单对象化

Delphi idhttp post 普通提交乱码处理

Delphi高亮显示trichedit当前行

Delphi kmp(字符串匹配)算法

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



打赏

取消

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

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

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

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

评论

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