upper-/ lowercase

[m.p.h.]

hallo.
wie kann man einen namen im editfeld formatieren?
beispiel: edit1.text : hANs mÜllER
ergebnis: Hans Müller

bitte angeben: procedure TForm1.Button1Click(Sender: TObject);

hab noch nicht so viel ahnung von delphi.
danke.

[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;

[Matze]

Genau das gleiche hast du hier gefragt und genug Antworten bekommen!

[Amateurprofi]

Zitat:

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;

[Daniel]

Zitat:

Zitat von Matze

Genau das gleiche hast du hier gefragt und genug Antworten bekommen!

Aus dem Grund mache ich hier mal zu. Bitte in dem anderen Thema weitermachen. ;-)


* closed *