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.

Ich schreibe es jetzt mal umständlich:

zusammenfalten · markieren

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;

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

Zitat von turboPASCAL:

zusammenfalten · markieren

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 :

markieren

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;

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 *