Groß u. Kleinschreibung eines Strings umkehren

[k6n]

Hi,

Wie kann ich die Groß und Kleinschreibung eines String umkehren?

Aus HaLLo soll z.B hAllO werden.

Danke

[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;

[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;

[Sir Rufo]

Zitat von 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;

... logisch, lässt ja auch einiges aus ... äöü ?

[Satty67]

Ganz vergessen, wenn man Umlaute braucht, dann AnsiUpperCase bzw. AnsiLowerCase (in dem Fall wäre auch die schnellere Variante überfordert)

[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;

[Sir Rufo]

Allerdings in den Zeiten von Unicode würde ich das nicht verwenden wollen ...

[k6n]

Danke an alle, funktioniert super.

[himitsu]

Delphi-Quellcode:

function SwitchLowerUpper(const Value: String): String;
var
  i: Integer;
begin
  Result := Value;
  for i := 1 to Length(Result) do
    if Result[i] in ['a'..'z', 'ä', 'ö', 'ü', 'A'..'Z', 'Ä', 'Ö', 'Ü'] then
      Result[i] := Chr(Ord(Result[i]) xor $20);

Delphi-Quellcode:

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

[Satty67]

Ach, das gibt es schon... und viele Wege führen nach Rom

Ich hab' wieder mal auf möglichst wenige Variablen geachtet. Ist zwar sicher unwichtig, aber welche Version ist die schnellste?

Ich durchlaufe Length(Str) nur einmal und mache ein paar Vergleiche. Die Delphi Version 3x, wenn am Anfang jeweils der komplette Str in eine Upper/Lower-Version gewandelt wird? Bei jaenicke's Version hängt es wohl von den verwendeten Zeichen ab.