Guten Abend,
nicht vergessen - was kein Anfangsbuchstabe ist gehört klein geschrieben:
Delphi-Quellcode:
// const CHARS = ['A'..'Z','Ä','Ö','Ü','a'..'z','ä','ö','ü'];
function ProperCase(const s: String): String;
var
i: Integer;
bStart: Boolean;
begin
Result := AnsiLowercase(s);
bStart := True;
for i := 1 to Length(s) do
if s[i] in CHARS then
begin
if bStart
then CharUpperBuff(@Result[i], 1)
else CharLowerBuff(@Result[i], 1);
bStart := False;
end else
bStart := True;
end;
Grüße vom marabu