groß/kleinschreibung

[Peter Mössinger]

Hallo Nicolai1605,

ich denke so klappt es auch und ist noch etwas schöner:

Delphi-Quellcode:

Var 
  bFirst : boolean; 
  i : Integer; 

Begin 
  bFirst := True;
  For i := 1 to Length (aWord) do Begin 
    If bFirst Then aWord[i] := Upc(aWord[i])
     else aWord[i] := LowerCase(aWord[i]); 
    bFirst := (aWord[i]=' '); 
  End; 
End;