|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.646 Beiträge
Delphi 12 Athens
|
AW: TEdit erste Buchstabe immer Groß schreiben...
2. Mai 2011, 23:03
Auch wenn es umständlicher aussieht:
Zitat:
if lastWasBlank then Result[i] := upCase(x[i]) else Result[i] := x[i];
-->
Delphi-Quellcode:
if lastWasBlank then
Result[i] := AnsiUpperCase(x[i])[1]
else
Result[i] := x[i];
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|