delphi IOUtils单元查找文件夹高级功能


本文整理自网络,侵删。

 

IOUtils单元,查找文件夹内信息的getfile函数,还可以在内部嵌套函数,提升其功能的扩展,非常好用!

 

代码部分:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
mmo1: TMemo;
btn1: TButton;
btn2: TButton;
btn3: TButton;
btn4: TButton;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses IOUtils, Types;

const path = 'D:Program FilesEmbarcaderoRAD Studio7.0';

//准备给 TDirectory.GetFiles 调用的函数, 须符合 TDirectory.TFilterPredicate 格式

function fp(const Path: string; const SearchRec: TSearchRec): Boolean;
begin
Form1.mmo1.Lines.Add(Path + '' + SearchRec.Name);
end;

procedure TForm1.btn1Click(Sender: TObject);
var
files: TStringDynArray;
begin
mmo1.Clear;
files := TDirectory.GetFiles(path, fp);
end;

procedure TForm1.btn2Click(Sender: TObject);
var
files: TStringDynArray;
begin
mmo1.Clear;
files := TDirectory.GetFiles(path,'*.txt', FP);
end;

procedure TForm1.btn3Click(Sender: TObject);
var
files: TStringDynArray;
begin
mmo1.Clear;
files := TDirectory.GetFiles(path,'*.txt',TSearchOption.soAllDirectories,FP);
end;

procedure TForm1.btn4Click(Sender: TObject);
var
files: TStringDynArray;
begin
mmo1.Clear;
files := TDirectory.GetFiles(path,
function(const Path: string; const SearchRec: TSearchRec): Boolean
begin
mmo1.Lines.Add(Path + '' + SearchRec.Name);
end
);

end;

end.

相关阅读 >>

Delphi提取exe,dll文件的icon图标

Delphi 以bytes为单位获取文件大小

encryptit.pas

Delphi清空回收站

Delphi获得某个磁盘或是文件夹的所有子目录

Delphi颜色转换函数

Delphi操作access数据库

Delphi rs232c接脚与对连线

Delphi锁定鼠标 模拟左右键 静止一会自动隐藏鼠标

Delphi decodedate、decodetime ... decodedatetime ... 分解时间

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



打赏

取消

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

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

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

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

评论

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