Convertir un cadena donde cada Palabra Primera con mayuscula

[santiago14]

Empezado por Delphius

Este reto me gustó. Propongo una nueva variante:

Código Delphi [-]
function TForm1.Capitalize(Text: string): string;
var Aux, Capital: string;
begin
  Capital := AnsiUpperCase(Text[1]);
  Aux := AnsiLowerCase(Text);
  Aux[1] := Capital[1];
  result := Aux;
end;

function TForm1.CapitalizeAll(Text: string): string;
var i: integer;
    CopyText: string;
    CapitalizeText: string;
begin
 for i := 1 to Length(Text) do
   begin
     if (Text[i] <> ' ') or (i = Length(Text))
        then CopyText := CopyText + Text[i]
        else begin
               CapitalizeText := CapitalizeText + ' ' + Capitalize(CopyText);
               CopyText := '';
             end;
   end;
 result := CapitalizeText + ' ' + Capitalize(Copytext);
end;

En teoría debería funcionar con cualquier caracter que se venga...

Saludos,

Medio viejito el post pero siempre vigente.
Igual, de gran utilidad.

Gracias de nuevo.

[[Al González]]

No había visto este hilo.

Para Santiago: ¡Gracias por revivirlo!

Para Román: Esas dos cosas que aprendiste hace casi cuatro años, ahora las he aprendido yo. Por cierto, llevas ya algunos meses de ausencia "pública", espero que todo vaya bien.

Para Javier (cHackAll): Gracias por ese par de tremendas revelaciones.

* El uso de Else vacío para forzar la correspondencia If-Else.

* A diferencia de la tabla ASCII, la tabla de caracteres ANSI presenta la misma distancia entre las mayúsculas y las minúsculas de todas las letras del alfabeto latino (no sólo las no acentuadas).

Vuelve pronto a los foros, Javier. Estoy seguro que hay mucho que podemos seguir aprendiendo de ti.

Un abrazo.

Al.