delphi - FindFirst 是否应该按字母顺序返回找到的文件？

Question

我曾以为 FindFirst 会按字母顺序查找文件，但最近我发现虽然大多数情况都是如此，但有一些文件并不是按字母顺序排列的。

if FindFirst( AProgramPath, faAnyFile, ASearchRec ) = 0 then
repeat
  AFilename := ASearchRec.name;
until FindNext( ASearchRec ) <> 0;
FindClose( ASearchRec );

这里的一个特定文件夹中包含大约 300 个文本文件，除了大约 8-10 个文件之外，所有文件都按正确的字母顺序返回。

如果 findfirst 不按字母顺序返回文件，是否有一种方法可用于按字母顺序对文件夹内容进行排序，以便 findfirst 按字母顺序返回文件？

问候，

比尔

Answer 1

FindFirst 函数不对搜索结果进行排序，但您可以使用 TStringList 对文件进行排序。

Procedure GetOrderFiles();
var
 ListFiles : TStringList;
 result    : integer;
 ASearchRec: TSearchRec;
begin
 ListFiles         := TStringList.Create;
 try
   ListFiles.sorted  := True;  
   result        := findFirst(AProgramPath,faAnyFile,ASearchRec );
   try
     while result = 0 do
     begin
      if (ASearchRec.name <> '.') and (ASearchRec.name <> '..') then
      ListFiles.add(ASearchRec.name);
      result:=FindNext(ASearchRec );
     end;
   finally 
     FindClose(ASearchRec );
   end;  

   //process your files

   //....
 finally
    ListFiles.free;
 end;
end;