zoukankan      html  css  js  c++  java
  • Delphi 2010 新增功能之: IOUtils 单元(1): 初识 TDirectory.GetFiles

    用 IOUtils 单元下的 TDirectory.GetFiles 获取文件列表太方便了;

    下面的例子只是 TDirectory.GetFiles 的典型应用...


    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;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    uses IOUtils, Types;
    
    {这是随意拿来的测试路径}
    const path = 'C:\Program Files\Embarcadero\RAD Studio\7.0';
    
    //获取指定目录下的所有文件
    procedure TForm1.Button1Click(Sender: TObject);
    var
      dir: TDirectory; {这是个结构, 后面就不再声明了, 将直接使用}
      files: TStringDynArray; {TStringDynArray = array of string;}
      str: string;
    begin
      files := dir.GetFiles(path);
      Memo1.Clear;
      for str in files do Memo1.Lines.Add(str);
    end;
    
    //获取指定目录下的所有指定类型的文件
    procedure TForm1.Button2Click(Sender: TObject);
    var
      files: TStringDynArray;
      str: string;
    begin
      files := TDirectory.GetFiles(path, '*.txt');
      Memo1.Clear;
      for str in files do Memo1.Lines.Add(str);
    end;
    
    //获取指定目录及其嵌套目录下的所有指定类型的文件
    procedure TForm1.Button3Click(Sender: TObject);
    var
      files: TStringDynArray;
      str: string;
    begin
      files := TDirectory.GetFiles(path, '*.txt', TSearchOption.soAllDirectories);
      Memo1.Clear;
      for str in files do Memo1.Lines.Add(str);
    end;
    
    end.
  • 相关阅读:
    poj 1321 棋盘问题 (DFS深度优先搜索)
    HDOJ1312 Red and black(DFS深度优先搜索)
    《数据结构》例1.3
    hdoj1905 Pseudoprime numbers (基础数论)
    百练4003 十六进制转十进制(水题)
    第二天——2.23
    第一天——2.22
    返校——2.21
    被盗号了——2.19
    继续咸鱼——2.18
  • 原文地址:https://www.cnblogs.com/xionda/p/15778836.html
Copyright © 2011-2022 走看看