Convertir un cadena donde cada Palabra Primera con mayuscula

[roman]

Empezado por Delphius

Ahora si desean, podemos aceptar el reto al que se enfrenta fidel.

Bueno, una parte es fácil. Para empezar basta aumentar el conjunto de caracteres que se aceptan como letras

Código Delphi [-]
['a'..'z','á','é','í','ó','ú','ñ','ü','ç']
['A'..'Z','Á','É','Í','Ó','Ú','Ñ', 'Ü','Ç']

por ejemplo. Luego, aumentar los caracteres que no son letras pero que pueden formar parte de un nombre, por ejemplo

Código Delphi [-]
if (Index = 1) or (Str[Index - 1] in [' ', '-', '''']) then

en lugar de

Código Delphi [-]
if (Index = 1) or (Str[Index - 1] = ' ') then

Con esto, ya podemos convertir nombres como

MARTÍNEZ-SIGÜENZA D'ALAMBERT PUÇOL GIL

El problema empieza con las preposiciones y artículos, porque ahí ya estamos hablando de analizar palabras y no sólo caracteres. Esa parte ya me da flojera

// Saludos

[[Delphius]]

Empezado por roman

El problema empieza con las preposiciones y artículos, porque ahí ya estamos hablando de analizar palabras y no sólo caracteres. Esa parte ya me da flojera

¿Es contagiosa? Porque no se si tu me contagiaste a mi o yo te contagié.
Ahora en serio,
Lo más fácil que se me ocurre es que una vez hecho las conversioes necesarias. Buscar en una lista de preposiciones y artículos posibles y por cada uno ir viendo si existe, y en caso de ser así reemplazar...
Algo como:

Código Delphi [-]
Posic = Pos(ListaArticulo[i], Texto)
if Posic <> 0
  then StringReplace(texto,Articulo,LowerCase(Texto), [rfReplaceAll])

El problema es que como bien puede verse... si hay algún de, la o algo por el estilo en el nombre (como Demetrio, Laura por mencionar algunos) el algoritmo falla.

esto se soluciona si se lleva simple pre-análisis:

Código Delphi [-]
if (Posic <> 0) AND (Texo[Posic - 1] = ' ')

Por ahora tengo eso. Lo escribí al vuelo, pero creo que se entiende más o menos la idea.

Saludos,

[roman]

Empezado por Delphius

como Demetrio, Laura por mencionar algunos

Pues, en lugar de buscar 'DE' o 'LA', buscas 'DE ' o 'LA '

// Saludos

[[Delphius]]

Empezado por roman

Pues, en lugar de buscar 'DE' o 'LA', buscas 'DE ' o 'LA '

// Saludos

Pos si... No se me pasó por la cabeza...
Hoy estoy lento, estoy trabajando a media pila.

Una vez más, el habil roman está despierto para sacarme del pozo que yo mismo cavo.

Saludos,