Stringumwandlung groß > klein; klein > groß

[Luckie]

Delphi-Quellcode:

const
  ABC ='abcDEF';

procedure TForm1.Button1Click(Sender: TObject);
var
  Loop: Integer;
  s: String;
begin
  for Loop := 1 to length(ABC) do
  begin
    if (ABC[Loop] in ['a'..'z']) then
      s := s+AnsiUppercase(ABC[Loop])
    else
      s := s+AnsiLowercase(ABC[Loop]);
  end;
  ShowMessage(s);
end;