【3.Delphi常用组件】9.文件相关组件

9.文件相关组件

在Delphi中，与文件相关的组件包括：选择驱动器、查看目录及文件列表等。

9.1 FileListBox

文件列表组件FileListBox的主要属性：

属性	说明
Directory	设置当前目录
Drive	设置当前驱动器
ExtenderdSelect	为True时可多选，否则不可以
FileEdit	将文件列表链接到一个编辑组件，显示列表中当前选中的文件
FileName	列表中当前选中的文件名
FileType	列表中显示的文件属性类型，如只读、隐藏、系统文件及是否显示当前目录等选项
Mask	设置显示的文件类型
ShowGlyphs	设置是否显示文件图标
MultiSelect	设置是否可以一次选中多个文件

9.2 DirectoryListBox

目录列表组件 DirectoryListBox 的主要属性：

属性	说明
Directory	设置当前目录
DirLabel	将目录列表链接到一个Label组件，显示当前被选中的目录
Drive	设置当前驱动器
FileList	将目录列表链接到文件列表，当目录改变时，文件列表中的文件自动更新

9.3 DriveComboBox

驱动器下拉列表 DriveComboBox 组件的主要属性：

属性	说明
DirList	用于将组件链接到目录列表，驱动器改变则目录列表自动更新
Drive	设置当前驱动器
TextCase	驱动器符号使用大写或小写字母显示

9.4 FilterComboBox

可选过滤器下拉列表组件 FilterComboBox，用于对文件进行筛选时使用的文件过滤器，其主要属性：

属性	说明
FileList	用于链接到文件列表，当前文件类型改变后文件列表会自动进行筛选更新
Filter	设置各种过滤文件的类型
Mask	存放所选过滤类型的对应字符串

9.5 文件相关组件的应用

示例：通过文件相关组件进行文件选择，在Label中显示当前选中的文件。界面如下图：

 

窗体主要组件的属性设置如下：

对象	属性	属性值	说明
DriveComboBox1	DirList	DirectoryListBox1	链接到DirectoryListBox1
DirectoryListBox1	FileList	FileListBox1	链接到FileListBox1
	DirLabel	Label2	链接到Label2
FilterComboBox1	FileList	FileListBox1	链接到FileListBox1
FileListBox1	FileEdit	Edit1	链接到Edit1
	MultiSelect	True	多选
Label1	Caption	您选择的文件：	标题
Label2	Caption	''	标题

代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  strFiles: String;
begin
  // OK 按钮单击事件
  strFiles := '';
  if FileListBox1.SelCount > 0 then
    for i := 0 to FileListBox1.SelCount - 1 do
      strFiles := strFiles + FileListBox1.Items[i] + ',';
​
  if Length(strFiles) > 0 then
    ShowMessage('您选择的文件:' + strFiles)
  else
    ShowMessage('请选择文件！');
end;