需要在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;