关于全角与半角的转换

建个一一对应表，再替换吧！
const:
  s1='£á£â£ã£ä£å£æ£ç£è£é£ê£ë£ì£í£î£ï£ð£ñ£ò£ó£ô£õ£ö£÷£ø£ù£ú£Á£Â£Ã£Ä£Å£Æ£Ç£È£É£Ê£Ë£Ì£Í£Î£Ï£Ð£Ñ£Ò£Ó£Ô£Õ£Ö£×£Ø£Ù£Ú£à£±£²£³£´£µ£¶£·£¸£¹£°£­£½£Ü¡«£¡££¡ç£¥£Þ£¦£¨£©£ß£«£ü£Û£Ý£û£ý£»£§£º£¢£¬¡££¯£¼£¾£¿';
  s2='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ`1234567890-=\~!#$%^&()_+|[]{};'':",./<>?';
for i := 1 to Length(s1) do
  s := StringReplace(s, s1[i], s2[i], [rfReplaceAll]);