我需要删除所有以“a”开头的文件，然后是三个任意字母和“.txt”扩展名，如“a123.txt”。代码如下：
var
sFileMask: string;
tsrMessage: TSearchRec;
begin
sFileMask := 'c:/a???.txt';
if SysUtils.FindFirst(sFileMask, 0, tsrMessage) = 0 then
begin
repeat
ShowMessage(tsrMessage.Name);
until FindNext(tsrMessage) <> 0;
SysUtils.FindClose(tsrMessage);
end;
end;
我一直以为问号的意思是一个且只有一个字符，但没想到这段代码返回的是“a.txt”、“a1.txt”和“a123.txt”文件名。有没有一种简单的方法可以修改代码以仅查找“a123.txt”之类的文件？
【问题讨论】：
满足您特定需求的最简单解决方案是替换它：
ShowMessage(tsrMessage.Name);
有了这个
if length(tsrMessage.Name)=8 then ShowMessage(tsrMessage.Name);
这将确保文件名的长度正好是四个字符 + 句点 + 扩展名。就像大卫说的那样，没有办法让 API 进行这种过滤，所以你必须自己做，但在你的特定情况下，没有必要枚举整个目录。你至少可以让 API 做它可以做的过滤，然后在它上面做你自己的过滤。
编辑：如果您需要确保“a”后面的三个字符是数字，您可以这样做：
if (length(tsrMessage.Name)=8) and tsrMessage[2].IsDigit and tsrMessage[3].IsDigit and tsrMessage[4].IsDigit then ShowMessage(tsrMessage.Name);
如果您使用的是现代编译器（您需要包含“字符”单元）。另请注意，如果您正在编译移动版本，则需要使用索引 [1]、[2] 和 [3]，因为它们从 0 开始索引字符串。
如果你使用的是旧版本，你可以这样做：
function IsDigit(c : char) : boolean;
begin
Result:=(c>='0') and (c<='9')
end;
if (length(tsrMessage.Name)=8) and IsDigit(tsrMessage[2]) and IsDigit(tsrMessage[3]) and IsDigit(tsrMessage[4]) then ShowMessage(tsrMessage.Name);
【讨论】：
此行为符合设计。 Raymond Chen在这里解释：How did wildcards work in MS-DOS?
您将在命令解释器中看到完全相同的行为。
C:\Desktop>dir a???.txt 驱动器 C 中的卷没有标签。 卷序列号为 20DA-7FEB C:\Desktop 目录 26/06/2016 14:03 6 a.txt 26/06/2016 14:03 6 a1.txt 26/06/2016 14:03 6 a12.txt 26/06/2016 14:03 6 a123.txt 4 个文件 24 字节 0 Dir(s) 286,381,445,120 字节空闲无法说服 FindFirstFile（Windows 上 RTL 的 FindFirst 背后的 API）按照您的意愿行事。您最好的选择是枚举整个目录，并使用您选择的模式匹配算法执行您自己的过滤。
【讨论】：