將涵有半型及全型字串轉為全型字串

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function AsciiToAlpha(Source: String): String;
const
  Alpha: array[32..126] of String = ( '　', '！', '”','＃' ,'＄' ,'％','＆' ,'’' ,'（' ,'）','＊','＋', '，',
                                      '－', '.', '／', '０', '１', '２', '３', '４', '５', '６','７', '８', '９',
                                      '：', '；', '＜', '＝', '＞', '？', '＠' , 'Ａ', 'Ｂ', 'Ｃ', 'Ｄ', 'Ｅ', 'Ｆ',
                                      'Ｇ', 'Ｈ', 'Ｉ', 'Ｊ','Ｋ', 'Ｌ', 'Ｍ', 'Ｎ', 'Ｏ', 'Ｐ', 'Ｑ', 'Ｒ', 'Ｓ',
                                      'Ｔ', 'Ｕ', 'Ｖ', 'Ｗ', 'Ｘ', 'Ｙ', 'Ｚ', '〔', '＼', '〕', '︿','＿', '’',
                                      'ａ', 'ｂ', 'ｃ', 'ｄ', 'ｅ', 'ｆ', 'ｇ', 'ｈ','ｉ', 'ｊ', 'ｋ', 'ｌ', 'ｍ',
                                      'ｎ', 'ｏ', 'ｐ', 'ｑ', 'ｒ', 'ｓ', 'ｔ', 'ｕ', 'ｖ','ｗ','ｘ','ｙ','ｚ',
                                      '｛', '｜', '｝', '～'
                                      );
  ASCII: array[32..126] of String = (
                                     ' ', '!', '"','#' ,'$' ,'%','&' ,'`' ,'(' ,')','*','+', ',',
                                     '-', '.', '/', '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',
                                     '{', '|', '}', '~'
                                     );
var
  w:WideString;
  ret:WideString;
  i:integer;
begin
  w:= Source;
  i:=1;
  ret := '';
  for i := 1 to length(w) do
  begin
    if w[i] > #128 then
    begin
       ret := ret+ w[i];
    end else begin
       if ((Ord(w[i]) >=(32)) and (Ord(w[i])<=(126))) then
       begin
         ret := ret+ Alpha[ ord(w[i]) ];
       end;
    end;
  end;
  result := ret;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  caption := AsciiToAlpha('ＹＡＯ');
end;

end.