频道分类

delphi 判断文件名是否有效

作者:admin 来源: 日期:2021/6/7 17:10:30 人气: 标签:

 function IsValidFileName(const fileName: string): boolean;
const
  InvalidCharacters : set of char = ['\', '/', ':', '*', '?', '"', '<', '>', '|'];
var
  cnt : integer;
begin
   result := fileName <> '';

   if result then
   begin
     for cnt := 1 to Length(fileName) do
     begin
       result := NOT (fileName[cnt] in InvalidCharacters) ;
       if NOT result then break;
     end;
   end;

end;