Delphi 2010 新增功能之: IOUtils 单元(2): TDirectory.TFilterPredicate

delphi ioutils it

来自:万一博客
TDirectory.GetFiles 函数还有一个 TDirectory.TFilterPredicate 类型的参数, 这是个匿名函数类型, 可对搜索结果再处理.




unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses IOUtils, Types;

'C:\Program Files\Embarcadero\RAD Studio\7.0';

//准备给 TDirectory.GetFiles 调用的函数, 须符合 TDirectory.TFilterPredicate 格式
const SearchRec: TSearchRec): Boolean;
begin
  Form1.Memo1.Lines.Add(Path + '\' + SearchRec.Name);
end;

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

procedure TForm1.Button2Click(Sender: TObject);
var
  files: TStringDynArray;
begin
  Memo1.Clear;
  files := TDirectory.GetFiles(path, '*.txt', fp);
end;

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

//可以这样方便地使用匿名函数
procedure TForm1.Button4Click(Sender: TObject);
var
  files: TStringDynArray;
begin
  Memo1.Clear;
  files := TDirectory.GetFiles(path,
    const SearchRec: TSearchRec): Boolean
    begin
      Memo1.Lines.Add(Path + '\' + SearchRec.Name);
    end
  );
end;

end.

相关推荐

  • 第六单元:做鸟巢——图形与拼组   单元分析 第六单元:做鸟巢——图形与拼组单元分析一、素材解读1.素材的选取。素材的选取背景是深圳南山区招商局子弟学校榕树上的鸟巢启示。2.情景窗的设置。信息窗1—我们也来做鸟巢;信息窗2—鸟是人类的朋友宣传栏。二、单元知识分析1.教材的知识基础
  • PHP 单元测试工具 对PHP开发者来说,单元测试这个名词也许有些陌生,但是实际上我们却常常在自发的进行着单元测试。如果你总是一边添加代码一边不断地在刷新着页面,那么,单元测试早已融入了你的开发中。是的,单元测试其实就是通过尽可能早尽可能快的进行测试来把错误扼杀
  • 五年级数学下册 第二单元 因数与倍数 单元教学计划 第二单元因数与倍数单元教学计划【教学目标】1.使学生掌握因数、倍数、质数、合数等概念,知道有关概念之间的联系和区别。2.使学生通过自主探索,掌握2、5、3的倍数的特征。3.逐步培养学生的数学抽象思维能力。【重点难点】1.掌握因数、倍数、质数
  • 第七章  力    单元练习(xwz) 第七章力单元练习(xwz)一、选择题(每小题3分,共45分)1.拿起两个鸡蛋的力大概是1N,拿起一块砖的力大约是20N,那么,拿起一本八年级下册物理课本的力大约是()A.0.25NB.2.5NC.25ND.2502.用天平和弹簧测力计分别在
  • 嘉宜美 守驹∈沂漳杉 简约搁架置物架 板层储物架 单元 赤橙子 去淘宝查看详情或购买>>|查询淘宝类似商品>>嘉宜美守驹∈沂漳杉简约搁架置物架板层储物架单元赤橙子,价格是¥386.00元(原价是¥386.00元),卖家是“广东广州”的淘宝店铺,30日销
  • 模块五Unit 2 单元检测题 高二英语模块五Unit2单元测试Unit2Theenvironment第一部分:英语知识运用(共两节,满分45分)第一节:单项填空(共15小题;每小题1分,满分15分)1.—Whatdoyouthinkofhisstoryinthejung
  • Unit 13 We're trying to save the earth 单元基础检测 I.用方框内所给单词或短语的适当形式填空。recycle,important,takepartin,pulldown,need,1.Thedangerousbuildingmust   atonce.2.   wastethingscanh
  • SAP 图标及 ALV  行 列 单元格 颜色 1.使用TCODE:ICON2.SE38查看程序,或者se11使用type_groupICON,可以找到对应图片的ID二、SAPline_color设置ALV行颜色ifwa_output-mandt='000'.wa_output-line
  • Excel公式教程 单元格格式代码详解 在自定义格式代码中最多可以指定四个部分,依次定义正数、负数、零和文本的格式;各部分之间用分号隔开。当只指定了一个部分,如果用符号@指定为文本格式,则单元格的内容将全部转换为文本值;如果没有用符号@指定为文本格式,则该部分同时定义正数、负数和
  • python  单元测试框架比较 Python里主流的单元测试框架主要有doctest、unittest和nose三种。在具体讨论每个框架之前,先看一个简单的需要测试的代码:#!/bin/python#fibonacci.pydeffibonacci(max):'''cal
  • 破解excel工作表密码 和 单元格保护密码 在日常工作中,您是否遇到过这样的情况:您用Excel编制的报表、表格、程序等,在单元格中设置了公式等,为了防止其他人修改您的设置或者防止您自己无意中修改,您可能会使用Excel的工作表保护功能,但护密码容易忘记,这该怎么办?有时您从网上下载
  • Django - 单元测试 Django-单元测试UnittestsVSdoctestUnittests——unittest.TestCase或Django自定义的TestCase的子类的方法,更多importunittestclassMyFuncTestCase(u

你的评论

就没有什么想说的吗?

最新博客

关于我们 加入传客 媒体报道 帮助中心 传客活动 免责声明 联系我们 移动版 移动应用

©2017传客网    琼ICP备15003173号-2    

本站部分文章来源于互联网,版权归属于原作者。
本站所有转载文章言论不代表本站观点,如是侵犯了原作者的权利请发邮件联系站长(weishubao@126.com),我们收到后立即删除。
站内所有资源仅供学习与参考,请勿用于商业用途,否则产生的一切后果将由您自己承担!

X