首页 > Windows开发 > 详细

delphi PosAnsi

时间:2018-02-15 16:48:17      阅读:255      评论:0      收藏:0      [点我收藏+]
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 PosAnsi

原文:https://www.cnblogs.com/westsoft/p/8449593.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!