Groß u. Kleinschreibung eines Strings umkehren

[jaenicke]

So meinte ich das mit dem schneller nicht , die Umlaute hatte ich vergessen :

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;