Lowercase Funktion?

[MathiasSimmack]

Ich habe mal in meine Unit geguckt. Da steht:

Delphi-Quellcode:

function LowerCase(const s: string): string;
var
  i : integer;
begin
  Result := '';

  if(length(s) > 0) then
  begin
    SetLength(Result,length(s));
    for i := 1 to length(s) do
      case s[i] of
        'A'..'Z','Ä','Ö','Ü':
          Result[i] := CHR(BYTE(s[i]) + 32);
        else
          Result[i] := s[i];
      end;
  end;
end;

Das geht sicher auch noch besser.