Groß u. Kleinschreibung eines Strings umkehren

[Satty67]

Könnte funktionieren:

Delphi-Quellcode:

function SwitchUpperLower(Str : String): String;
var
  i : Integer;
begin
  Result := Str;
  for i := 1 to Length(Result) do
    if UpperCase(Result[i]) = Result[i] then 
      Result[i] := LowerCase(Result[i])[1]
    else 
      Result[i] := UpperCase(Result[i])[1];
end;