Convertir un cadena donde cada Palabra Primera con mayuscula

[jhonny]

Empezado por Delfino

Propongo la función mas económica y rentable para capitalizar la primera letra de una palabra,

IVA incluido y descuento
O se queda satisfecho o le devolvemos su dinero
Si encuentra mas barato le abonamos la diferencia

Código Delphi [-]cadena := StuffString(Texto,1,1,UpperCase(LeftStr(Texto,1)))

Bueno, pero solo es para capitalizar la primera letra de una palabra, cosa que también se hace así:

UpCase(Cadena[1]);

La cosa es que se requiere, que sea mayúscula la primera letra de cada palabra de toda la frase, pero que además se conviertan en minúsculas las demás.

Empezado por roman

¡Vaya! ¡Qué interesante! Aunque parece que sólo a mi me sorprende.

Pues a mi también, de hecho me gusto la optimización en si .