本文整理自网络,侵删。
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 xe6开发的android应用实现在线升级完成后自动安装apk代码(加说明)
Delphi中exit,abort,break,continue,halt,runerro 的区别
Delphi deletedirectory 删除目录下所有文件包括子文件夹下所有文件
Delphi windows 编程[15] - 菜单消息: wm_command
更多相关阅读请进入《Delphi》频道 >>