Lower/UpperCase beachtet Umlaute nicht

[himitsu]

Das LowerCase (1 Parameter) ist quasi schon immer nicht auf die WinAPI losgegangen, sondern machte alles selber und auch nur für A-Z. (spontan denk ich da an eine uralte Turbo Pascal-Funktion )

Zitat:

Delphi-Quellcode:

(* ***** BEGIN LICENSE BLOCK *****
 *
 * The function LowerCase is licensed under the CodeGear license terms.
 *
 * The initial developer of the original code is Fastcode
 * Code was modified to to ensure the string payload is ansi
 *
 * Portions created by the initial developer are Copyright (C) 2002-2004
 * the initial developer. All Rights Reserved.
 *
 * Contributor(s): John O'Harrow, Allen Bauer
 *
 * ***** END LICENSE BLOCK ***** *)
function LowerCase(const S: string): string;
var
  I, Len: Integer;
  DstP, SrcP: PChar;
  Ch: Char;
begin
  Len := Length(S);
  SetLength(Result, Len);
  if Len > 0 then
  begin
    DstP := PChar(Pointer(Result));
    SrcP := PChar(Pointer(S));
    for I := Len downto 1 do
    begin
      Ch := SrcP^;
      case Ch of
        'A'..'Z':
          Ch := Char(Word(Ch) or $0020);
      end;
      DstP^ := Ch;
      Inc(DstP);
      Inc(SrcP);
    end;
  end;
end;

function LowerCase(const S: string; LocaleOptions: TLocaleOptions): string;
begin
  if LocaleOptions = loUserLocale then
    Result := AnsiLowerCase(S)
  else
    Result := LowerCase(S);
end;

[Edelfix]

Push. Ist das Thema noch aktuell oder hat sich seit 2014 etwas getan?

[Uwe Raabe]

Mit dem TStringHelper kann man das relativ bequem lösen:

Delphi-Quellcode:

var
  S: string;
begin
  S := 'äöüÄÖÜ';
  Writeln(S.ToUpper); // ÄÖÜÄÖÜ

  S := 'äöüÄÖÜ';
  Writeln(S.ToLower); // äöüäöü
 
  S := 'äöüÄÖÜ';
  Writeln(UpperCase(S)); // äöüÄÖÜ

  S := 'äöüÄÖÜ';
  Writeln(LowerCase(S)); // äöüÄÖÜ 
end;

Die Funktionalität von UpperCase/LowerCase wird man wohl aus Kompatibilitätsgründen nicht ändern.

[Thomas Horstmann]

Dafür gibt es AnsiUpperCase und AnsiLowerCase.

[himitsu]

Zitat von Thomas Horstmann:

Dafür gibt es AnsiUpperCase und AnsiLowerCase.

Und man beachte, dass auch für Unicode die Funktionen weiterhin Ansi heißen.

String (UnicodeString) = LowerCase nur für ASCII (System.pas)
String (UnicodeString) = AnsiLowerCase (System.SysUtils.pas)
AnsiString = LowerCase nur für ASCII (System.AnsiStrings.pas)
AnsiString = AnsiLowerCase (System.AnsiStrings.pas)
WideString = WideLowerCase (System.SysUtils.pas)
UnicodeString = AnsiLowerCase (siehe "String" in System.SysUtils.pas)

LowerCase = damals im Pascal und immernoch das Selbstgebaute, was nur A-Z "binär" verschiebt (ein Bit umschalten #$41..#$5A <-> #$61..#$7A ± $20 aka 6. Bit .... da hatte jemand mitgedacht )
AnsiLowerCase = die Behandlung über die ANSI-Funktionen des Windows (inkl. Beachtung der CodePage für andere Sprachen)