谁能给我一段半角字符转全角字符的源码呢？100分（必给）在线等

Question

我也是摘录的：
function AsciiToAlpha(Source: String): String;
const
Alpha: array[45..122] of String =
('－', '.', '／', '０', '１', '２', '３', '４', '５', '６',
'７', '８', '９',
'：', '；', '＜', '＝', '＞', '？', '',
'Ａ', 'Ｂ', 'Ｃ', 'Ｄ', 'Ｅ', 'Ｆ', 'Ｇ', 'Ｈ', 'Ｉ', 'Ｊ',
'Ｋ', 'Ｌ', 'Ｍ', 'Ｎ', 'Ｏ', 'Ｐ', 'Ｑ', 'Ｒ', 'Ｓ', 'Ｔ',
'Ｕ', 'Ｖ', 'Ｗ', 'Ｘ', 'Ｙ', 'Ｚ', '｛', '＼', '｝', '︿',
'─', '', 'ａ', 'ｂ', 'ｃ', 'ｄ', 'ｅ', 'ｆ', 'ｇ', 'ｈ',
'ｉ', 'ｊ', 'ｋ', 'ｌ', 'ｍ', 'ｎ', 'ｏ', 'ｐ', 'ｑ', 'ｒ',
'ｓ', 'ｔ', 'ｕ', 'ｖ','ｗ','ｘ','ｙ','ｚ');ASCII: array[45..122] of String =
('-', '.', '/', '0', '1',
'2', '3', '4', '5', '6',
'7', '8', '9', ':', ';',
'<', '=', '>', '?', #0,
'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', '[', '\', ']', '^',
'-', #0, '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');var
I, S1: Integer;
begin
Result := '';
for I := 1 to Length(Source) do
begin
S1 := ord(Source[i]);
if ((S1>=Low(ASCII)) and (S1<=High(ASCII))) then
begin
Result := Result + Alpha[S1];
end;
end;
end;

Answer 1

如果是将全角转化成半角,我这里有一篇例子
http://www.codelphi.com/channel/hjwz/read.asp?ano=807
先注册,再登陆

Answer 2

//from
http://kingron.myetang.com/zsfunc02.htm(*//
标题:对全角半角字符串的处理
说明:使用于运用程序中避免用户输入字符不统一
设计:Zswang
日期:2002-01-24
支持:[email protected]
//*)///////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