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复制粘贴操作

Delphi firemonkey中listboxaccessory图标切换

Delphi中的free和nil

Delphi 判断一目录是否共享

Delphi 用 superobject 解析淘宝上的 json 数据

Delphi char string

Delphi 与 c/c++ 数据类型对照表

Delphi防止因系统崩溃而丢失任务栏的图标(重建托盘图标)

Delphii控件的安装和卸载方法

Delphi 快速删除非空文件夹

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

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