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

Question

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

i.e., When open dialog is executed and i select one file from it, I want the list of all files from the directory of selected file.

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

Answer 1

如果你使用delphi 2010那么你可以使用tdirectory.getfiles首先将ioutils.pas添加到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;