每日程炼-IOUtils单元3查找并搜索文件夹信息

现在的位置: 首页＞[Delphi2010]＞正文

RSS

小中大

上篇下篇

每日程炼-IOUtils单元3查找并搜索文件夹信息

2011年05月15日 ⁄ [Delphi2010] ⁄ 暂无评论

实现查收指定目录的，特定文件名和模糊查询也能很简单实现

获取指定目录下有 Li 开头的文件

获取指定目录及其子目录下文件名只有 3 个字母的 pas 文件

DEMO下载：IOUnit3

代码部分：

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:Program FilesEmbarcaderoRAD Studio7.0';

//获取指定目录下有 Li 开头的文件
procedure TForm1.btn1Click(Sender: TObject);
var
files: TStringDynArray;
str: string;
begin
files := TDirectory.GetFiles(path, 'Li*.*');
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.

 

窗体部分：

object Form1: TForm1
Left = 0
Top = 0
Caption = #24858#20154#31508#35760'-http://www.codefool.com'
ClientHeight = 291
ClientWidth = 476
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object mmo1: TMemo
Left = 0
Top = 0
Width = 473
Height = 201
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
Lines.Strings = (
'mmo1')
TabOrder = 0
end
object btn1: TButton
Left = 136
Top = 220
Width = 193
Height = 25
Caption = #33719#21462#25351#23450#30446#24405#19979#26377' Li '#24320#22836#30340#25991#20214
TabOrder = 1
OnClick = btn1Click
end
object btn2: TButton
Left = 64
Top = 251
Width = 337
Height = 25
Caption = #33719#21462#25351#23450#30446#24405#21450#20854#23376#30446#24405#19979#25991#20214#21517#21482#26377' 3 '#20010#23383#27597#30340' pas '#25991#20214
TabOrder = 2
OnClick = btn2Click
end
end