Zitat von
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;
du setzt aber bFirst nicht mehr auf False
Zitat von
himitsu:
PS: Wer hat behauptet, daß das erste Zeichen nicht auch schon ein Leerzeichen ist und ob überhaupt was eingegeben wurde?
Da hat der mann mit den schönen Bäumen wohl recht ^^
龍 Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.