ich glaube er meint nur die Anfangsbuchstaben der Wörter groß schreiben.
grob: du musst den Satz nach Wörtern durchsuchen, will heißen du durchsuchst ihn nach Worttrennzeichen(Kommas, Leerzeichen, Punkte, etc.) und wenn nach einem Trennzeichen kein trennzeichen kommt, fängt ein neues Wort an -> den Buchstaben "upcasen" (UpCase).
z.B. so (ist jetzt auf die schnelle und ungetestet)
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
| function Capitalize(s: string): string;
const
Delimiters = [' ', '.', '!'];
var
i: integer;
IsWord: boolean;
begin
IsWord := false;
for i := 1 to Length(s) do
begin
if (not(s[i] in Delimiters)) and (not IsWord) then
begin
s[i] := UpCase(s[i]);
IsWord := true;
end;
if ((s[i] in Delimiters)) then IsWord := false;
end;
result := s;
end; |
mfg
GSE
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs
and the universe trying to produce bigger and better idiots. So far, the universe is winning. (Richard Cook)
