本文整理自网络，侵删。
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》频道 >>
