upper-/ lowercase

[Amateurprofi]

Zitat von turboPASCAL:

Delphi-Quellcode:

var s: string;
begin
  s := LowerCase( Edit1.Text );  // Text aus Edit holen und "klein" machen

  s := Trim(s); // Leerzeichen vom Anfang und Ende entfernen

  if s[1] in ['a'..'z'] then  // Wenn 1tes Zeichen von a bis z ist dann
    s[1] := UpCase ( s[1] );  // 1tes Zeichen durch dessen Grossbuchst. ersetzen

  Edit1.Text := s;  // und zurüch zum Editfeld
end;

er wollte aber nicht nur den ersten buchstaben sondern auch den ersten buchstaben des zweiten wortes groß haben
also :

Delphi-Quellcode:

var s:string; i:integer;
begin
  s := LowerCase( Edit1.Text );  // Text aus Edit holen und "klein" machen
  s := Trim(s); // Leerzeichen vom Anfang und Ende entfernen
  if s<>'' then s[1]:=Upcase(s[1]);
  for i:=2 to lenght(s) do
     if s[i-1]=' ' then s[i]:=UpCase(s[i]);
  Edit1.Text := s;  // und zurüch zum Editfeld
end;