字符转换

有谁能知道，将一个字符串中的所有半角字符，全部转换成全角字符，能解决的，立刻给分，决不食言  
   
  问题点数：20、回复次数：5Top

1 楼Teng_s2000（分涨的太慢,升星难啊!!）回复于 2005-08-11 17:27:59 得分 10

up  
  正好   看见一篇文章http://www.topdelphi.net/bbs/dispbbs.asp?boardid=1&id=5361  
  但是我不会使用Top

2 楼hqhhh（枫叶）回复于 2005-08-11 17:37:34 得分 10

const  
      cCharCn:   array[#32   ..   #126]   of   string[2]   =  
  ({   }'   　   ',{!}'   ！   ',{"}'   ＂   ',{#}'   ＃   ',{   }'   ＄   ',{%}'   ％   ',{&}'   ＆   ',{'}'   ＇   ',{(}'(',  
  {)}')',{*}'   ＊   ',{+}'+',{,}',',{-}'   －   ',{.}'   。   ',{/}'   /   ',{0}'   ０   ',{1}'   １   ',  
  {2}'   ２   ',{3}'   ３   ',{4}'   ４   ',{5}'   ５   ',{6}'   ６   ',{7}'   ７   ',{8}'   ８   ',{9}'   ９   ',{:}':',  
  {;}';',{<}'   ＜   ',{=}'   ＝   ',{>}'   ＞   ',{?}'   ？   ',{@}'   ＠   ',{A}'   Ａ   ',{B}'   Ｂ   ',{C}'   Ｃ   ',  
  {D}'   Ｄ   ',{E}'   Ｅ   ',{F}'   Ｆ   ',{G}'   Ｇ   ',{H}'   Ｈ   ',{I}'   Ｉ   ',{J}'   Ｊ   ',{K}'   Ｋ   ',{L}'   Ｌ   ',{M}'   Ｍ   ',{N}'   Ｎ   ',{O}'   Ｏ   ',{P}'   Ｐ   ',{Q}'   Ｑ   ',{R}'   Ｒ   ',{S}'   Ｓ   ',{T}'   Ｔ   ',{U}'   Ｕ   ',{V}'   Ｖ   ',{W}'   Ｗ   ',{X}'   Ｘ   ',{Y}'   Ｙ   ',{Z}'   Ｚ   ',{[}'   ［   ',{\}'   ＼   ',{]}'   ］   ',{^}'   ＾   ',{_}'   ＿   ',{`}'   ｀   ',{a}'   ａ   ',{b}'   ｂ   ',{c}'   ｃ   ',{d}'   ｄ   ',{e}'   ｅ   ',{f}'   ｆ   ',{g}'   ｇ   ',{h}'   ｈ   ',{i}'   ｉ   ',{j}'   ｊ   ',{k}'   ｋ   ',{l}'   ｌ   ',{m}'   ｍ   ',{n}'   ｎ   ',{o}'   ｏ   ',{p}'   ｐ   ',{q}'   ｑ   ',{r}'   ｒ   ',{s}'   ｓ   ',{t}'   ｔ   ',{u}'   ｕ   ',{v}'   ｖ   ',{w}'   ｗ   ',{x}'   ｘ   ',{y}'   ｙ   ',{z}'   ｚ   ',{{}'   ｛   ',{|}'   ｜   ',{   }'   ｝   ',{~}'   ～   ');  
   
  function   StrToGBText(mStr:   string):   string;   {     返回字符串转换成全角字符串     }  
  var  
      I:   Integer;  
  begin  
      Result   :=   '';  
      for   I   :=   1   to   Length(mStr)   do  
          case   mStr[I]   of  
              #32   ..   #126:   Result   :=   Result   +   cCharCn[mStr[I]];  
          else   Result   :=   Result   +   mStr[I];  
          end;  
  end;   {   StrToGBText   }  
   
  function   GBTextToStr(mText:   string):   string;   {     返回字符串转换成半角字符串     }  
  var  
      I:   Integer;  
      J:   Char;  
      S:   string;  
  begin  
      Result   :=   '';  
      for   I   :=   1   to   Length(WideString(mText))   do   begin  
          S   :=   WideString(mText)[I];  
          if   Length(S)   >   1   then   for   J   :=   #32   to   #126   do  
              if   cCharCn[J]   =   S   then   begin  
                  S   :=   J;  
                  Break;  
              end;  
          Result   :=   Result   +   S;  
      end;  
  end;   {   GBTextToStr   }  
   
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      Memo1.Text   :=   StrToGBText(Memo2.Text);  
  end;  
   
  procedure   TForm1.Button2Click(Sender:   TObject);  
  begin  
      Memo2.Text   :=   GBTextToStr(Memo1.Text);  
  end;  
   
  Top

3 楼lianshaohua（永远深爱一个叫“...”的好女孩儿!）回复于 2005-08-11 18:30:48 得分 0

这样太麻烦了;Top

4 楼tylz1985（天涯浪子）回复于 2005-08-11 20:53:39 得分 0

这样太麻烦了;  
    有必要这么费劲吗？Top

5 楼pingzhifan（）回复于 2005-08-12 11:08:46 得分 0

谢谢各位的了   ，问题已经解决了    
  Top

相关问题

• 转换
• mstr
• 字符串
• result

• 帖主：pingzhifan
• Teng_s2000
• hqhhh

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载