使用 Delphi XE5 Android 应用程序列出存储中的所有文件

Question

如何列出SD卡路径和内存路径中的文件？

我尝试使用GetDocumentsPath作为参数的FindFile，但没能成功。

哎呀，我在哪里可以找到更多有关Delphi for Android的文档或代码片段？

- alycia

---

这是Delphi。以前从未见过这种讨论。 - alycia

Answer 1

将System.IOUtils添加到您的使用条款中。 您可以像这样使用代码TPath和TDirectory：

uses
  System.IOUtils, System.Types;

procedure TForm1.Button1Click(Sender: TObject);
var
  FileList: TStringDynArray;
  DocDir: string;
  s: string;
begin
  Memo1.Lines.Clear;
  DocDir := TPath.GetDocumentsPath;
  FileList := TDirectory.GetFiles(DocDir);
  for s in FileList do
    Memo1.Lines.Add(s);
end;

- Ken White

---

是的，我也从Marco Cantu的PDF中找到了这段代码，但没有找到任何文件。 - alycia

抱歉，我在模拟器中尝试了一下。我现在不在电脑旁边。稍后我会用手机再试一次。如果我在模拟器中运行代码，路径应该是 /data/data/embarcadero.program/。在Android中，/data和Windows中的驱动器号码一样吗？内存路径怎么样？Delphi有API吗？我从http://www.embarcadero.com/resources/white-papers?download=102获取了PDF文件。 - alycia

其他操作系统没有驱动器字母。 :-) 这就是为什么 IOUtils 有 TPath，它让您调用一个函数并获取正确的位置，而不管平台如何。IOUtils.TPath 还有其他查找文件夹的功能，比如 GetHomePath 和 GetTempPath。它们在帮助文档和 RTL 源代码中都有记录（至少列出）。 - Ken White

您可能也想查看另一个问题的这个答案。 - Ken White

当然，选择Android选项作为目标平台(Android)。http://s12.postimg.org/hf9d78fh9/Capture.gif。你的意思是正确的错误信息是“无法找到文件'Android\System.IOUtils.pas'。”？ - alycia