jeden anfangsbuchstaben eines wortes groß machen

[marabu]

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