Convertir un cadena donde cada Palabra Primera con mayuscula

[cascarrabias]

Empezado por roman

Pero como nadie lo comenta, supongo que para todos es muy claro así que ahí lo dejo.



// Saludos

Pues de hecho para mi tambien fue algo nuevo y sorprendente eso del else... me pasaba igual que a ti....yo ponia un begin y un end para manejar estas situaciones......Saludos Roman

[fidel]

Algo así también me venía funcionando, pero con algún resultado no demasiado correcto.

Código Delphi [-]
//coger apellidos y pasar a minúsculas con mayúscula inicial
sAape := 'SIGÜENZA NÚÑEZ PUÇOL' 
sApellidos := '';
sEspacio := 'Si';
For i := 1 to Length(sAape) do
  begin
    if sEspacio = 'Si' then
      sApellidos := sApellidos + AnsiUpperCase(copy(sAape, i, 1))
    else
      sApellidos := sApellidos + AnsiLowerCase(copy(sAape, i, 1));
    if copy(sAape, i, 1) = ' ' then
      sEspacio := 'Si'
    else
      sEspacio := 'No';
  end;

MARTÍNEZ-MENDOZA GIL ..... Martínez-mendoza Gil (Martínez-Mendoza Gil)
HURTADO DE MENDOZA DE LA CUADRA .... Hurtado De Mendoza De La Cuadra (Hurtado de Mendoza de la Cuadra)

[[Delphius]]

Hola fidel,
Asi a vista rápida el código que tienes solo hará mayúsculas en caso de que haya un espacio.
Si tu deseas que controlase el tema de guiones y los "de", "la" y otros más habrá que buscarle un algoritmo un poquito más complicado, pero se puede.

Por el momento puedo decirte que el algoritmo que tienes puede mejorarse un poco:

Código Delphi [-]
HayEspacio := True;
For i := 1 to Length(sAape) do
  begin
    if HayEspacio 
       then sApellidos := sApellidos + AnsiUpperCase(copy(sAape, i, 1))
       else sApellidos := sApellidos + AnsiLowerCase(copy(sAape, i, 1));
    HayEspacio := Copy(sAape, i, 1) = ' ';
  end;

Saludos,