需要在Delphi中將大寫字母改爲小寫字母

Question

我有這個字符串，我需要製作一些字符資本，所以我使用UpCase命令......但是如果我需要從大寫字符中創建小字符，該怎麼辦？在這種情況下我使用什麼？

Answer 1

UpCase不是區域意識，只能處理英語的26個字母。如果這真的是你所需要的，那麼你可以創建一個這樣相當於LoCase功能：

function LoCase(ch: AnsiChar): AnsiChar; overload; 
begin 
    case ch of 
    'A'..'Z': 
    Result := AnsiChar(Ord(ch) + Ord('a')-Ord('A')); 
    else 
    Result := ch; 
    end; 
end; 

function LoCase(ch: WideChar): WideChar; overload; 
begin 
    case ch of 
    'A'..'Z': 
    Result := WideChar(Ord(ch) + Ord('a')-Ord('A')); 
    else 
    Result := ch; 
    end; 
end; 

Answer 2

你應該學會如何找到你自己的解決方案，而不是如何使用谷歌或計算器:)

你在System.pas中有U​​pCase函數的來源。看看它是如何工作的。所有這些都是從小寫字符中減去32。如果你想得到相反的結果，加32而不是減去它。德爾福的幫助會告訴你什麼Dec或Inc做什麼。

var 
    S: string; 
    I: Integer; 
begin 
    S := 'ABCd'; 

    for I := 1 to Length(S) do 
    if S[I] in ['A'..'Z'] then // if you know that input is upper case, you could skip this line 
     Inc(S[I], 32); // this line converts to lower case 
end;