我有一个例程，可以将文件转换为不同的格式并保存。原始数据文件已编号，但我的例程根据原始文件中的内部名称为输出提供文件名。
我试图在一个完整的目录上批量运行它，它工作正常，直到我点击一个内部名称中有斜杠的文件。哎呀！如果它在这里这样做，它可以很容易地在其他文件上。是否存在RTL(或WinAPI)例程，它将清理字符串并删除无效符号，以便可以安全地用作文件名？
解决方法
您可以使用
PathGetCharType function,PathCleanupSpec function或以下技巧：
function IsValidFilePath(const FileName: String): Boolean;
var
S: String;
I: Integer;
begin
Result := False;
S := FileName;
repeat
I := LastDelimiter('\/',S);
MoveFile(nil,PChar(S));
if (GetLastError = ERROR_ALREADY_EXISTS) or
(
(GetFileAttributes(PChar(Copy(S,I + 1,MaxInt))) = INVALID_FILE_ATTRIBUTES)
and
(GetLastError=ERROR_INVALID_NAME)
) then
Exit;
if I>0 then
S := Copy(S,1,I-1);
until I = 0;
Result := True;
end;
此代码将字符串分成几部分，并使用MoveFile验证每个部分。 MoveFile将因无效字符或保留文件名(如“COM”)而失败，并返回成功或ERROR_ALREADY_EXISTS作为有效文件名。
PathCleanupSpec位于Win32API / JwaShlObj.pas下的Jedi Windows API中