用tdirectoy遍历文件夹 没反应。解决方法

用tdirectoy遍历文件夹 没反应。。

Delphi(Pascal) code

procedure TForm1.btn1Click(Sender: TObject);var  Files: TStringDynArray;  NameTemp: string;  Path: string;begin  Path := 'E:\Games';  Files := TDirectory.GetFiles(Path);  //单步这句运行完后files 还是为空。  for NameTemp in Files do    mmo1.Lines.Add(NameTemp);end;

木有结果，请问怎么回事啊

[解决办法]
测试是没有问题的，只是这样写不会遍历子文件夹，可能你的根目录下没有任何文件？
如果要遍历子文件夹，要加参数 TSearchOption.soAllDirectories

Delphi(Pascal) code

var  Files: TStringDynArray;  NameTemp: string;  Path: string;begin  Path := 'E:\Games';  Files := TDirectory.GetFiles(Path, '*.*', TSearchOption.soAllDirectories);  for NameTemp in Files do    mmo1.Lines.Add(NameTemp);end;
[解决办法]
探讨


只能列出文件。。文件夹列不出  嘿嘿。。。
 

 

查看更多 下一篇