以下程式是我參考站內半型轉全型問題答覆所寫的
但是我想將地址的字串轉全都轉成全型字
ex: 台北市信義區基隆路2段171-3號5樓A → 台北市信義區基隆路２段１７１－３號５樓Ａ
程式中傳入字串值該如何判斷是全型還是半型字??或者有什麼更好的方式??
請各位大大幫忙orz
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, aa : Integer;
str,trans,ansstr : String;
Query : TQuery;
begin
Result := '';
str := '';
trans := '';
ansstr := '';
showmessage(Source);
i:=1;
while i<= Length(Source) do
begin
str := '';
str := Copy(Source,i,2);
if str > #128 then
ansstr := ansstr str
else
begin
str := '';
str := Copy(Source,i,1);
S1 := ord(str[i]);
if ((S1>=Low(ASCII)) and (S1<=High(ASCII))) then
begin
trans := '';
trans := Alpha[S1];
ansstr := ansstr trans ;
end;
str := '';
str := Copy(Source,i 1,1);
S1 := ord(str[i 1]);
if ((S1>=Low(ASCII)) and (S1<=High(ASCII))) then
begin
trans := '';
trans := Alpha[S1];
ansstr := ansstr trans ;
end;
end;
showmessage(ansstr);
i := i 2;
end;
showmessage(ansstr);
Result := ansstr;
end;

------
Brazy

[code delphi]

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;

[/code]