請教各位前輩: 如果輸入一字串,其中包含中文字及英文字,想要判斷當英文字為小寫時要將其 轉換成大寫,要如何做比較好呢?? 謝謝!!

直接用 UpperCase 函式就可以了:

var s: string;
begin
  s := 'a一b二三CDefg';
  s := UpperCase(s);
  showmessage(s);
end;

引言: 直接用 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討論區站長～～～

內建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

引言: 內建AnsiUpperCase,AnsilLoweCase..

謝謝您! AnsiUpperCase()就可以自動分變中英文了! ～～～Delphi K.Top討論區站長～～～