Upper/Lowercase bei Char

[Binärbaum]

Zitat von Oxmyx:

Die Frage ist, was du überhaupt machen willst. Deine Funktion wandelt das erste Zeichen im String in ein großgeschriebenes Zeichen um. In dem String steht aber noch überhaupt nichts drin...

Delphi bringt keine LowCase-Funktion mit. Deshalb musst du dir selber eine schreiben:

Delphi-Quellcode:

function LowCase(c: Char): Char;
begin
  if c in ['A'..'Z'] then
    c := Chr(Ord(c) - Ord('A') + Ord('a'));
  Result := c
end;

Die Funktion ist nicht schlecht, aber es fehlen noch die Umlaute:

Delphi-Quellcode:

function LowCase(c: Char): Char;
begin
 case c of
  'A'..'Z': Result:= Chr( Ord(c)-Ord('A')+Ord('a'));
  'Ä': Result:= 'ä';
  'Ö': Result:= 'ö';
  'Ü': Result:= 'ü';
 else Result:= c;
 end; 
end;

MfG
Binärbaum