怎么把一个字符串中全角的挎号转换成为半角的挎号，解决立刻给分，在线等待

Question

如题

Answer 1

function quan_b(str: AnsiString;p:TProgressBar): AnsiString;
var
  str0,str1,str2:AnsiString;
  Flags: TReplaceFlags;
  n:Integer;
const
  strcn='ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ｀１２３４５６７８９０－＝＼～！＃＄％＾＆（）＿＋｜［］｛｝；＇：＂，。／＜＞？';
  stren='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ`1234567890-=\~!#$%^&()_+|[]{};'':",./<>?';  begin
  
  str0:=str;
  for n:=1 to 95 do
  begin
  str1:=copy(strcn,2*n-1,2);
  str2:=copy(stren,n,1);
  Flags:=[rfReplaceAll];
  str0:=StringReplace(str0,str1,str2,Flags);
   
  end; 
  quan_b:=str0;
  end;

Answer 2

p:TProgressBar是什么意思啊

Answer 3

不好意思， P：tprogressbar,表示是进度条 
不过这块没有用到，不好意思，
在资料中找的以前的点代码