Delphi 判断文件名是否有效，主要判断文件名中是否包括有一些特殊字符，比如斜杠之类的，看了代码，原来挺基础的，主要是使用了Delphi中的IsFileName函数，不几行代码就搞定了，下面的代码仅供参考：
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text<>'' then
begin
Str := Trim(Edit1.Text);
if IsFileName(Str) then
showmessage('文件名有效')
else
