如何在用户提供的文本中切换字母大小写

Question

如何切换大小写？

首先从用户那里得到一个写在CCD_ 1框中的句子，例如

最快的动物是猎豹

然后切换案例并在TPanel中显示，例如：

ThE FaStEsT AnImAl是ChEeTaH

Answer 1

通常的方法是在字符串上迭代，交替使用大写和小写字符，例如：

uses
..., System.Character;
var
str, result: String;
i: Integer;
ch: Char;
begin
str := ...;
i := 0;
for ch in str do
begin
if not Odd(i) then
result := result + ch.ToUpper
else
result := result + ch.ToLower;
Inc(i);
end;
end;

或者：

uses
..., System.Character;
var
str: String;
i: Integer;
begin
str := ...;
for i := 1 to Length(str) do
begin
if Odd(i) then
str[i] := str[i].ToUpper
else
str[i] := str[i].ToLower;
end;
end;