在 Delphi 中，可以使用正则表达式来检查 Windows 文件名称或路径是否合法。合法的文件名和路径要求符合以下几点：
- 禁止的字符：文件名和路径不能包含以下字符：
<,>,:,",/,\,|,?,*。 - 文件名不能以空格或点结束。
- 长度限制：文件名最长为 255 个字符，路径最长为 260 个字符。
要更严格地检查 Windows 文件路径的合法性，除了排除不允许的字符外，还需要加入对以下情况的检测：
- 连续两个反斜杠（\） 在路径中是不合法的。
- 合法的盘符：路径应该以合法的盘符开头（如
C:\等），或者是以网络路径\\开头。 - 路径中的每个文件夹名也应合法：即每个文件夹名不能包含非法字符、不能以空格或点结束。
为了实现以上点，可以利用正则表达式并添加一些额外的逻辑处理。以下是解决方案。
- 首先检查路径长度是否符合要求（文件名最长 255 字符，路径最长 260 字符）。
- 然后使用正则表达式来匹配文件名，确保不含非法字符并且文件名的最后一个字符不能是空格或点。
Delphi 代码示例：
usesSystem.RegularExpressions, System.SysUtils;function IsValidFileNameOrPath(const AFileName: string): Boolean;
varRegex: TRegEx;DrivePattern, NetworkPattern, PathPattern: string;
begin// 检查文件路径是否为空，是否超过260字符限制if (AFileName = '') or (Length(AFileName) > 260) thenExit(False);// 合法盘符模式，例如 C:\ 或 D:\DrivePattern := '^[a-zA-Z]:\\';// 网络路径模式，例如 \\server\shareNetworkPattern := '^\\\\[^<>:"/\\|?*]+\\[^<>:"/\\|?*]+';// 文件名和路径的基本合法性检查，排除非法字符和不合法的结尾// 该模式允许文件夹和文件名不包含非法字符，文件名或文件夹不能以空格或点结束PathPattern := '^(?!.*[\\/]{2,})[^<>:"/\\|?*]+[^ .]$';// 检查是否符合盘符路径或者网络路径的格式if TRegEx.IsMatch(AFileName, DrivePattern) or TRegEx.IsMatch(AFileName, NetworkPattern) thenbegin// 去掉盘符或者网络前缀，剩下的部分检查合法性Regex := TRegEx.Create(PathPattern, [roIgnoreCase]);// 按照目录分割，依次检查每一个路径片段是否合法Result := True;var Parts := AFileName.Split(['\']);for var Part in Parts dobeginif not Regex.IsMatch(Part) thenbeginResult := False;Break;end;end;endelseResult := False;
end;procedure TestFileNameValidation;
varTestFileName: string;
beginTestFileName := 'C:\Program Files\MyApp\data.txt'; // 示例路径if IsValidFileNameOrPath(TestFileName) thenWriteln('文件路径合法')elseWriteln('文件路径不合法');
end;beginTestFileNameValidation;
end.
验证逻辑：
- 盘符检查：通过正则表达式
^[a-zA-Z]:\\来验证是否以合法的盘符开头（如C:\、D:\）。 - 网络路径检查：通过正则表达式
^\\\\[^<>:"/\\|?*]+\\[^<>:"/\\|?*]+来验证网络路径是否合法（如\\Server\Share）。 - 路径片段检查：将整个路径按照
\拆分为多个部分，逐个检查每个部分（文件夹和文件名）的合法性。使用正则表达式^(?!.*[\\/]{2,})[^<>:"/\\|?*]+[^ .]$来确保：- 不能包含非法字符。
- 不允许连续的反斜杠（
\\）。 - 不能以空格或点结束。
解释：
-
盘符和网络路径正则表达式：
^[a-zA-Z]:\\：用于检查以合法盘符开头的路径。^\\\\[^<>:"/\\|?*]+\\[^<>:"/\\|?*]+：用于检查网络路径，确保合法的服务器和共享文件夹名称。
-
路径合法性正则表达式：
^(?!.*[\\/]{2,})：负向先行断言，确保没有连续的反斜杠或正斜杠。[^<>:"/\\|?*]+[^ .]$：确保文件夹和文件名不包含非法字符，且不能以空格或点结尾。
测试用例：
procedure TestFileNameValidation;
beginWriteln(IsValidFileNameOrPath('C:\valid\path\file.txt')); // 合法Writeln(IsValidFileNameOrPath('C:\invalid\\path\file.txt')); // 不合法 - 连续的反斜杠Writeln(IsValidFileNameOrPath('C:\invalid|path\file.txt')); // 不合法 - 包含非法字符 '|'Writeln(IsValidFileNameOrPath('\\server\share\file.txt')); // 合法 - 网络路径Writeln(IsValidFileNameOrPath('\\server\\invalid\file.txt')); // 不合法 - 连续的反斜杠Writeln(IsValidFileNameOrPath('C:\invalidpath\file.')); // 不合法 - 文件名以点结尾
end;
总结：
这段代码通过严格的正则表达式和逻辑检查文件名和路径的合法性。它确保了路径中的每个片段都不会有非法字符、连续的反斜杠，并且合法的文件名不会以空格或点结尾。如果你想进一步增加其他规则（如长度、特殊情况），可以在此基础上进行扩展。