Einzelnen Beitrag anzeigen

Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#7

Re: Stringumwandlung groß > klein; klein > groß

  Alt 11. Sep 2003, 11:44
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;
......
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat