delphi IOUtils单元3查找并搜索文件夹信息

IOUtils单元3查找并搜索文件夹信息

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    mmo1: TMemo;
    btn1: TButton;
    btn2: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses IOUtils, Types;
const path = 'D:\Tencent\';

 //获取指定目录下有 Li 开头的文件
procedure TForm1.btn1Click(Sender: TObject);
var
  files: TStringDynArray;
  str: string;
begin
  files := TDirectory.GetFiles(path, 'Tence*.*');        //D:\Tencent\QQ\Bin\QQ.exe
  mmo1.Clear;
  for str in files do mmo1.Lines.Add(str);
end;

//获取指定目录及其子目录下文件名只有 3 个字母的 pas 文件
procedure TForm1.btn2Click(Sender: TObject);
var
  files: TStringDynArray;
  str: string;
begin
  files := TDirectory.GetFiles(path, '???.pas', TSearchOption.soAllDirectories);
  mmo1.Clear;
  for str in files do mmo1.Lines.Add(str);
end;

end.