delphi - 随机文件名

Question

我有一个名为 MAPS 的文件夹。我想当选择一个菜单项时，在本例中是“ map ”->“随机”。它将随机选择文件夹映射中的文件名之一。我怎样才能让它随机？

Answer 1

获取文件夹中的文件名列表:

uses
  System.Types, System.IOUtils;

var
  FileNames: TStringDynArray;
....
FileNames := TDirectory.GetFiles(DirectoryName);

然后随机选择一个索引。

var
  Index: Integer;
.....
Index := Random(Length(FileNames));

因此，您的随机文件名由以下给出

FileNames[Index];

在启动时调用Randomize，以确保用户每次运行程序时不会获得相同的随机数字序列。

这不是最有效的方法，因为它为目录中的每个文件分配字符串，然后您只使用一个。然而，这可能是最方便、最简单的方法。