Delphi-如何获取目录中所有文件的列表

Question

我正在使用 delphi，当我执行 openpicturedialog 时，我想要一个目录中所有文件的列表。

即，当执行打开对话框时并且 我从中选择一个文件，我想要 目录中所有文件的列表 所选文件的名称。

您甚至可以建议我从 TOpenDialog 的 FileName 属性获取目录名称
谢谢。

Answer 1

如果您使用的是 Delphi 2010，则可以使用 TDirectory.GetFiles。

首先将 IOUtils 添加到您的 uses 子句中，然后在您的事件处理程序中使用以下内容（除了该事件处理程序中已有的代码之外）：

uses IOUtils;

var
   path: string;
begin
   for Path in TDirectory.GetFiles(OpenPictureDialog1.filename)  do
      Listbox1.Items.Add(Path); // assuming OpenPictureDialog1 is the name you gave to your OpenPictureDialog control
end;

Answer 2

@Himadri，OpenPictureDialog 的主要目标不是选择目录，无论如何，如果您将此对话框用于其他目的，您可以尝试此代码。

Var
  Path    : String;
  SR      : TSearchRec;
  DirList : TStrings;
begin
  if OpenPictureDialog1.Execute then
  begin
    Path:=ExtractFileDir(OpenPictureDialog1.FileName); //Get the path of the selected file
    DirList:=TStringList.Create;
    try
          if FindFirst(Path + '*.*', faArchive, SR) = 0 then
          begin
            repeat
                DirList.Add(SR.Name); //Fill the list
            until FindNext(SR) <> 0;
            FindClose(SR);
          end;

     //do your stuff

    finally
     DirList.Free;
    end;
  end;

end;

Answer 3

更改 OpenPictureDialog 中的 filter 属性以包含所有文件：

All (*.*)

编辑：我认为您不能在 Open(Picture)Dialog 中选择目录，它肯定不能无论如何，这不是 OpenPictureDialog 的目的。

然后使用 FindFirst 和 FindNext 获取此目录中的文件。

Answer 4

您可以使用 extractFilePath 函数获取目录名称：

myPath := extractFilePath(FileName);

其中 FileName 是您通过 OpenDialog 选择的文件的名称。

Answer 5

if OpenPictureDialog1.Execute then  
  FileListBox1.Directory := extractFilePath(OpenPictureDialog1.FileName);

您还可以使用链接到 FileListBox 的 FilterComboBox 来过滤文件类型。

TFileListBox 和 TFilterComboBox 位于“Win 3.1”下的工具选项板中。从 Delphi 4 开始就有这些对象。

Answer 6

通过这段代码，你可以获取你想要的文件夹中文件的“路径”信息。为此，您可以使用 Delphi 的 System.IOUtils 库。

uses 
...
 System.IOUtils;
...

var List : TStringlist;
var File : String := '';
var Path : string := IncludeTrailingPathDelimiter(Edit1.Text);

Lista := TStringList.Create;
try
    for File in TDirectory.GetFiles(Path) do
        List.Add(File); // Add all file names to list
finally
    FreeAndNil(Lista);
end;