zoukankan      html  css  js  c++  java
  • [转载]Delphi2010新功能:TDirectory.TFilterPredicate

    Delphi 2010 新增功能之: IOUtils 单元: TDirectory.TFilterPredicate
    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;

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

    //准备给 TDirectory.GetFiles 调用的函数, 须符合 TDirectory.TFilterPredicate 格式
    function fp(const Path: string; 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,
        function(const Path: string; const SearchRec: TSearchRec): Boolean
        begin
          Memo1.Lines.Add(Path + '' + SearchRec.Name);
        end
      );
    end;

    end.

  • 相关阅读:
    Scons 三
    Scons 二
    vs code插件
    Scons一
    实例演示 C# 中 Dictionary<Key, Value> 的检索速度远远大于 hobbyList.Where(c => c.UserId == user.Id)
    ASP.NET Core 如何用 Cookie 来做身份验证
    如何设计出和 ASP.NET Core 中 Middleware 一样的 API 方法?
    小记编程语言的设计
    解决 VS2019 打开 edmx 文件时没有 Diagram 视图的 Bug
    一款回到顶部的 jQuery 插件,支持 Div 中的滚动条回到顶部
  • 原文地址:https://www.cnblogs.com/luckForever/p/7255219.html
Copyright © 2011-2022 走看看