線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1392
推到 Plurk!
推到 Facebook!

各位前輩...是否有知道如何解決中文直列的問題

 
jzchen
一般會員


發表:8
回覆:21
積分:5
註冊:2002-06-01

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-06-15 19:32:22 IP:61.30.xxx.xxx 未訂閱
各位前輩... 小弟遇到中文直列時,將font.name 選為@細明體... 此時中文字會轉向,但英文及數字不會, 不知道各位前輩有沒有解決的方法. (列印資料是中英文混在一起的....) 謝謝.....
paul
初階會員


發表:8
回覆:82
積分:28
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-06-15 19:48:31 IP:203.204.xxx.xxx 未訂閱
全部改為全型即可!
jzchen
一般會員


發表:8
回覆:21
積分:5
註冊:2002-06-01

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-06-15 20:05:26 IP:61.30.xxx.xxx 未訂閱
引言: 全部改為全型即可!
那請問前輩..有沒有轉全形的function
paul
初階會員


發表:8
回覆:82
積分:28
註冊:2002-04-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2002-06-15 21:13:59 IP:203.204.xxx.xxx 未訂閱
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;
系統時間:2024-03-29 23:44:14
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!