当前位置: 传客网 > Delphi 2010 新增功能之: IOUtils 单元(2): TDirectory.TFilterPredicate

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

2017-01-04 作者:邬国丰

来自:万一博客
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

  • 复习5 单元

    第三册5单元注明:每课的词语要会读,读准字音。会写的要听写,课文读或背要完成,老师会在每天早读、午读时间检查学生读、背课文情况。识字5一、我会认读:转移移动移民计谋谋划谋杀火柴柴草火焰焰火气焰容易平易近人易如反掌折断折纸打折搓绳搓板搓洗绳子

  • 二.2班 单元组分工表

    单元组分工表班级:二.2班组别组名组长组员及分工计时员声控员记录员发言人1花儿小组辛卓皓冉姜浩然吕豪杰辛宗泽随机2神龙小组梁锦园梁世昊辛潘杰梁子轩随机3太阳小组王昊徐孙阳张涵钰郭佳瑞随机4月亮小组马夏戊辛艺宸梁佳傲玥宗子楚随机5星星小组祁书

  • 高中英语必修3 Unit2 单元测试题

    第一部分:英语知识运用(共三节,满分54分)第一节:单项填空(共15小题;每小题1分,满分15分)1.Hesatatthedesk,__________anovel.A.readB.toreadC.readingD.reads2.Ifyou

  • (收集)easyui datagrid 单元格里显示图片

    columns:[[{title:'图片',field:'image',width:100,align:'center',formatter:function(value,row,index){return'';}}]]

  • PHPUnit 单元测试框架(鸡肋)

    学习的文章:http://www.php100.com/html/webkaifa/PHP/PHPyingyong/2011/0216/7534.html看了文章后个人觉得是鸡肋,。

  • Python 单元测试框架之Nose

    最近再浏览Python自动化测试框架,之前接触过unittest,看了篇文章,发现nose貌似更牛逼一些,于是安装试了试,分享一下心得。nose项目是于2005年发布的,也就是py.test改名后的一年。它是由JasonPellerin编写

  • Django 单元测试

    对于当今Webdeveloper来说,自动化测试是一项非常有用的”除虫”工具。你可以使用测试集——testsuite——去避免或者解决一系列的问题:当你在写新代码的时候,测试可以验证你的代码是否按预期执行当你重构或则修改旧代码时,你可以使用

  • [原创]雇映鲠上家少陪聘帮倒闲 单元@在一印象会很好

      本报记者贾峰  人才雇映鲠上,家少陪聘正暗暗兴起,许多家庭没有惜齐家总动员,为孩子供职“鞍前马后”,齐程陪伴。有人笑止,“雇映鲠”成了“家少会”。  对此,做为当事圆的家少、孩子、企业三圆战做为旁没有雅观者的业浑家士告别有没有开的没有雅

返回
顶部