Gegenteil von UpCase bei Char?

[himitsu]

Man mag es nicht glauben, aber das gibt es nicht.

kann man sich aber selber basteln:

Delphi-Quellcode:

function LoCase(ch: AnsiChar): AnsiChar; overload;
begin
  Result := Ch;
  if Result in ['A'..'Z'] then Inc(Result, $20);
end;

function LoCase(Ch: WideChar): WideChar; overload;
begin
  case Ch of
    'A'..'Z': Result := WideChar(Word(Ch) or $0020);
    else      Result := Ch;
  end;
end;

[edit]
war etwas langsam

[edit]
warum hatte ich das UpCase nicht in LoCase umbenannt?