Delphi groß/kleinschreibung

Thema durchsuchen

Ansicht

Themen-Optionen

groß/kleinschreibung

Ein Thema von m.p.h. · begonnen am 25. Feb 2006 · letzter Beitrag vom 22. Mai 2006

Antwort

Peter Mössinger

Registriert seit: 26. Jul 2005
Ort: Mainz
31 Beiträge

Delphi 7 Professional

Re: groß/kleinschreibung

25. Feb 2006, 22:54

Hallo Nicolai1605,

ich denke so klappt es auch und ist noch etwas schöner:

zusammenfalten · markieren

Delphi-Quellcode:

			Var 

  bFirst : boolean; 

  i : Integer; 

Begin 

  bFirst := True;

  For i := 1 to Length (aWord) do Begin 

    If bFirst Then aWord[i] := Upc(aWord[i])

     else aWord[i] := LowerCase(aWord[i]); 

    bFirst := (aWord[i]=' '); 

  End; 

End;