Inc(Word(Char))

[Bjoerk]

Moin,
geht das bei Unicode?

Delphi-Quellcode:

{$IfDef UniCode}
function LowerCaseEx(const S: string): string; ???
const
  CharSet: TSysCharSet = ['A'..'Z', 'Ä', 'Ö', 'Ü'];
var
  I: integer;
begin
  Result := S;
  for I := 1 to Length(Result) do
    if CharInSet(Result[I], CharSet) then
      Inc(Word(Result[I]), 32);
end;
{$Else}
function LowerCaseEx(const S: string): string;
var
  I: integer;
begin
  Result := S;
  for I := 1 to Length(Result) do
    if Result[I] in ['A'..'Z', 'Ä', 'Ö', 'Ü'] then
      Inc(Byte(Result[I]), 32);
end;
{$EndIf}

[DeddyH]

Delphi-Quellcode:

function LowerCaseEx(const S: string): string;
begin
  Result := AnsiLowerCase(S);
end;

Obwohl die Funktion mit "Ansi" beginnt, funktioniert sie genauso mit Unicode.

[Uwe Raabe]

Wie Detlev schon erwähnte ist AnsiLowerCase die bevorzugte Methode, da sie sich auf das aktuelle Betriebssystem stützt und auch andere als nur Deutsche Umlaute berücksichtigt.

Wenn es dir aber nur um das Konstrukt mit dem Inc geht, daß kannst du auch ohne IFDEF erledigen. Der Cast auf Byte oder Word ist gar nicht notwendig:

Delphi-Quellcode:

function LowerCaseEx(const S: string): string;
var
  I: integer;
begin
  Result := S;
  for I := 1 to Length(Result) do
    if Result[I] in ['A'..'Z', 'Ä', 'Ö', 'Ü'] then
      Inc(Result[I], 32);
end;

Du bekommst dann zwar eine deprecated Warnung, aber die kommt aktuell auch bei CharInSet , was intern übrigens (außer bei NEXTGEN) exakt dasselbe tut.

[Bjoerk]

OK. Thanx. Das mit AnsiLowerCase war mir schon klar. Noch schlimmer find ich den Namen Ansi übrigens bei AnsiSameText ect.. Wollte es auch deshalb mal wissen weil D2007 bei Inc(Word(..)) meldet -> der linken Seite kann nichts zugeweisen werden.

[DeddyH]

Dass die Funktionen immer noch AnsiXXX heißen, darüber hat sich himitsu schon gelegentlich aufgeregt. Das hat einfach mit der Abwärtskompatibilität zu tun, damit auch "alter" Code an dieser Stelle nicht geändert werden muss.

[Bjoerk]

Ja. Fehlt nur noch daß die Ansivariante SameText heißt. Ich verwende meine LowerCaseEx übrigens nur deshalb (gelegentlich in Parsern wo DE als Sprache klar ist) weil sie ca. 2 mal so schnell ist wie AnsiLowerCase. Ansonsten braucht eine LowerCaseEx ja kein Mensch.

[DeddyH]

SameText gibt es ja auch schon