Delphi 判断文件名是否有效


本文整理自网络,侵删。

 
function IsValidFilename(const fname: String): Boolean;
const
  InvalidChars : set of char = ['\', '/', ':', '*', '?', '"', '<', '>', '|'];
var
  I: Integer;
begin
  Result := fname <> '';

  if Result then
  begin
    for I := 1 to Length(fname) do
    begin
      Result := NOT (fname[I] in InvalidChars);
      if NOT Result then Break;
    end;
  end;
end;

相关阅读 >>

Delphi 提取标签之间的字符串

dll 的静态调用实例代码

Delphi treeview中显示mainmenu菜单

Delphi 如何使用程序标识符检查程序是否已安装

Delphi 根据特殊符号字符获取字符串前或后的字符

Delphi tclientdataset的全面剖析

Delphi 字符串转换ascii码10进制

Delphi xe android]获取屏幕的物理分辨率

Delphi record,两种声明方式

Delphi 不管什么日期格式转换都不会错了

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...