全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1864
推到 Plurk!
推到 Facebook!

如何轉換大小寫??

 
angel
一般會員


發表:13
回覆:9
積分:4
註冊:2002-03-12

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-06-19 18:05:15 IP:203.204.xxx.xxx 未訂閱
請教各位前輩: 如果輸入一字串,其中包含中文字及英文字,想要判斷當英文字為小寫時要將其 轉換成大寫,要如何做比較好呢?? 謝謝!!
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-06-19 18:18:49 IP:211.22.xxx.xxx 未訂閱
直接用 UpperCase 函式就可以了:
var s: string;
begin
  s := 'a一b二三CDefg';
  s := UpperCase(s);
  showmessage(s);
end;
領航天使
站長


發表:12216
回覆:4186
積分:4084
註冊:2001-07-25

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-06-30 07:47:23 IP:192.168.xxx.xxx 未訂閱
引言: 直接用 UpperCase 函式就可以了:
var s: string;
begin
  s := 'a一b二三CDefg';
  s := UpperCase(s);
  showmessage(s);
end;
可樣可能還會有錯喔! 將 'a一b二三CDefg' 改為 'a一b二三CDefg電腦' 轉大寫後會變成 'A一B二三CDEFG鄒腦' 因為'電'中文字中的第二碼為小寫英文Uppercase()會將之轉為大寫 結果就便成'鄒'字了! 試試站長改寫的函數 UppercaseChinese()
function UpperCaseChinese(s:string):string;
var i:integer;
    ws:widestring;
begin
   ws:=s;
   result:='';
   for i:=1 to length(ws) do
   begin
      if length(string(ws[i]))=1 then result:=result uppercase(ws[i])
      else result:=result ws[i];
   end;
end;
~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~
huwk
資深會員


發表:26
回覆:340
積分:323
註冊:2002-04-03

發送簡訊給我
#4 引用回覆 回覆 發表時間:2002-06-30 10:51:04 IP:210.85.xxx.xxx 未訂閱
內建AnsiUpperCase,AnsilLoweCase.. [DELETED..] 可樣可能還會有錯喔! 將 'a一b二三CDefg' 改為 'a一b二三CDefg電腦' 轉大寫後會變成 'A一B二三CDEFG鄒腦' 因為'電'中文字中的第二碼為小寫英文Uppercase()會將之轉為大寫 結果就便成'鄒'字了! [Deleted..] ~~~Delphi K.Top討論區站長~~~ [/quote] 發表人 - huwk 於 2002/06/30 10:52:37
------
熊的學習 http://huwk.blogspot.com
領航天使
站長


發表:12216
回覆:4186
積分:4084
註冊:2001-07-25

發送簡訊給我
#5 引用回覆 回覆 發表時間:2002-06-30 12:24:16 IP:192.168.xxx.xxx 未訂閱
引言: 內建AnsiUpperCase,AnsilLoweCase..
謝謝您! AnsiUpperCase()就可以自動分變中英文了! ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~
系統時間:2017-11-24 21:13:32
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!