Stringumwandlung groß > klein; klein > groß

[Helpliner]

Hallo Leute,

also wie ich Strings nach Klein-, oder Großbuchstaben umwandle ist klar
(Ansi)LowerCase oder
(Ansi)UpperCase ...aber...

gibt es eine Kombination aus beidem um "ABCdef" >> "abcDEF" zu machen oder muss ich mir dafür ne Funktion stricken ??

[Luckie]

Hol dir den ASCII Code und gehe den String Zeichen für Zeichen durch. Die GRoßbuchsteben gehen von $41 bis $5B und die kleinen von $61 bis $7A.

[sakura]

Mit anderen Worten: selber machen

......

[Helpliner]

Okay, dann probier ich das mal, Danke Jungs!

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

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

[sakura]

Und hier die komplexe, aber immer noch schnelle Lösung, welche auch Umlaute und regionale Spracheinstellungen berücksichtigt

Delphi-Quellcode:

function SwapCase(const InStr: AnsiString): AnsiString;
var
  US, LS: AnsiString;
  I: Integer;
begin
  SetLength(Result, Length(InStr));
  US := AnsiUpperCase(InStr);
  LS := AnsiLowerCase(InStr);
  for I := 1 to Length(InStr) do
  begin
    if US[I] = InStr[I] then
      Result[I] := LS[I]
    else
      Result[I] := US[I];
  end;
end;

......