Delphi 过滤字符串特殊符号的函数

本文整理自网络，侵删。

 
function ValidateName(n: string): string;
var banned, res: string; i,j: integer;
begin
  res:= n;
  banned:= '\/:*?"<>|';
  for i:= 1 to Length(res) do
    for j:= 1 to Length(banned) do
      if res[i]=banned[j] then res[i]:=' ';
  Result:= res;
end;
 

相关阅读 >>

Delphi 模拟按键的一些误解

Delphi如何在tmemo控件光标当前位置插入字符串

Delphi 遍历所有edit控件

Delphi 如何编写需要启动参数的Delphi程序

Delphi idhttp与cookie

Delphi获取系统电源状态的信息

Delphi 根据进程名称获取进程号

idftp tencoding and iidtextencoding

Delphi base64, quoted-printable 的解码与编码函数

Delphi重写一个字符串分割函数

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

转载请注明出处：木庄网络博客 » Delphi 过滤字符串特殊符号的函数