字符转换

Question

有谁能知道，将一个字符串中的所有半角字符，全部转换成全角字符，能解决的，立刻给分，决不食言

Answer 1

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

Answer 2

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;