delphi - 如何在目录中找到所有 MP3 文件？

我最近开始使用 delphi，现在我想从目录中获取所有 mp3 文件。我想要类似 php 函数 glob() 的东西。

最佳答案

这样做的旧方法大约是:

var
  status : dword;
  sr : TSearchRec;
begin
  status := FindFirst('*.mp3',faAnyFile,sr);
  while status = 0 do
  begin

     // sr.Name is the filename; add it to a list
     // or something. Note there is no path so you
     // may need to add that back on somewhere

     status := FindNext(sr);
  end;
  SysUtils.FindClose(sr);

  // ...
end;

关于delphi - 如何在目录中找到所有 MP3 文件？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/4238437/