本文整理自网络,侵删。
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 firedac 获取 insert 记录的自增 id
Delphi 怎么将一个流转换成字符串?或者将字符串转出一个流
Delphi yesterday、today、tomorrow - 昨天、今天、明天
Delphi 的编译指令(1): $define、$undef、$ifdef、$else、$endif
更多相关阅读请进入《Delphi》频道 >>