upper-/ lowercase

[turboPASCAL]

Ich schreibe es jetzt mal umständlich:

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;