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 package

Delphi assignfile 与指定的文件建立连接

Delphi实现屏幕抓图

Delphi手动创建dataset并插入值

Delphi编写的android程序获取root权限实现(2015.4.15更新，支持android 4.4)

Delphi paramstr的用法

Delphi xe5实现随机大小写字幕或者数字

Delphi回调函数高级应用

Delphi复制整个文件夹(当然包括嵌套文件夹)

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

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