delphi 判断文件名是否有效

本文整理自网络，侵删。

 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;
 

相关阅读 >>

Delphi百度云服务平台获取token

Delphi 获取ie7 ie8 ie9 地址栏网址

Delphi 进程隐藏的若干方法

Delphi 获取当前输入法

Delphi窗口显示和关闭的时候出现动画效果

Delphi 微信公众平台 Delphi sdk

Delphi xe8 numberbox使用方法及存在的问题

Delphi实现电脑端微信图片文件解密

Delphi xe2读取内存偏移数据代码

Delphi 把字符串复制到剪贴板

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 判断文件名是否有效