Groß u. Kleinschreibung eines Strings umkehren

[jaenicke]

Das ist etwas schneller:

Delphi-Quellcode:

function SwitchLowerUpper(Value: String): String;
var
  i: Integer;
begin
  Result := Value;
  for i := 1 to Length(Value) do
    if Value[i] in ['a'..'z'] then
      Result[i] := Chr(Ord(Value[i]) - 32)
    else if Value[i] in ['A'..'Z'] then
      Result[i] := Chr(Ord(Value[i]) + 32);
end;