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 注册表管理

Delphi wininet带进度下载http文件

Delphi 关于运算符

Delphi 防止程序重复执行的单元

Delphi 让子窗体显示最大化

Delphi xe5 android 设置权限

Delphi 内进行音量控制及静音

Delphi 计算imei的校验位

Delphi xe 如何实现("再按一次退出") 然后退出程序

Delphi http协议验证访问datasnap rest 服务器

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

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