对全角半角字符串的处理

(* //
  标题:对全角半角字符串的处理
  说明:使用于运用程序中避免用户输入字符不统一
  设计:Zswang
  日期:2002-01-24
  支持:wjhu111@21cn.com
  // *)
/// ////Begin Source
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 }

/// ////End Source
/// ////Begin Demo
procedure TForm1.Button1Click(Sender: TObject);
begin
    Memo1.Text := StrToGBText(Memo2.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    Memo2.Text := GBTextToStr(Memo1.Text);
end;
/// ////End Demo