各位前輩...是否有知道如何解決中文直列的問題 |
|
jzchen
一般會員 發表:8 回覆:21 積分:5 註冊:2002-06-01 發送簡訊給我 |
|
paul
初階會員 發表:8 回覆:82 積分:28 註冊:2002-04-14 發送簡訊給我 |
|
jzchen
一般會員 發表:8 回覆:21 積分:5 註冊:2002-06-01 發送簡訊給我 |
|
paul
初階會員 發表:8 回覆:82 積分:28 註冊:2002-04-14 發送簡訊給我 |
function AsciiToAlpha(Source: String): String; //半型轉全型
const
Alpha: array[45..122] 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'); 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;
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |