Stringumwandlung groß > klein; klein > groß

[Christian Seehase]

Moin Zusammen,

oder eine andere Variante.
Funktioniert aber nur für die Zeichen a-z und A-Z.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ABC : string;
  Loop: Integer;
  s: String;
begin
  ABC := 'abcDEF';
  for Loop := 1 to length(ABC) do begin
    ABC[Loop] := chr(ord(ABC[Loop]) xor $20);
  end;
  ShowMessage(ABC);
end;