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