Unificar nombres y apellidos

[dtomeysoto]

Hola amigos, resulta que tengo en una tabla Paradox los nombres y apellidos de todos los empleados de la empresa y estos vienen de la siguiente forma:

Juan Perez Reyes
Jorge L. Nápoles Cabrera
ALBERTO GONZALES LUGO
Luis R Ramírez Oviedo
...

Necesito hacer una función a la cual le vaya pasando los nombres y me los devuelva de la primera forma, es decir cada palabra debe empezar en mayúsculas y continuar en minúsculas.

No tengo ningún problema en hacer la función y tal vez en el tiempo que llevo redactando este post ya la hubiera terminado pero quería saber si delphi cuenta con algo para salir de dudas.

Gracias.

[ecfisa]

Hola.

En el link siguiente se trató un tema donde una de las propuestas, la de rgstuamigo, creo que es lo que buscas:

http://www.clubdelphi.com/foros/showthread.php?t=67467

Saludos.

[dtomeysoto]

amigo, ya revisé el post pero no me sirve para lo que necesito. recuerda que ya toda la información está en una base de datos, solo tengo que recorrer la tabla en cuestión e ir aplicando la "función" para lograr el resultado que deseo.

[*Caro*]

Empezado por dtomeysoto

....................pero quería saber si delphi cuenta con algo para salir de dudas.

Hola dtomeysoto, que yo sepa delphi no cuenta con algo directo para hacer lo que quieres. Tienes que hacerte la función.

Código Delphi [-]
.......................................
 Ind, Posicion : Integer;
begin
 Ind := 1;
 Nombre := LowerCase(Nombre);
 Nombre[1] := UpCase(Nombre[1]);
 While PosEx(' ', Nombre, Ind)>0 do
  begin
   Posicion := PosEx(' ',Nombre, Ind)+1;
   Nombre[Posicion] := UpCase(Nombre[Posicion]);
   Ind := Posicion;
  end;
 .......................................
end;

Saluditos

[ecfisa]

Empezado por dtomeysoto

amigo, ya revisé el post pero no me sirve para lo que necesito. recuerda que ya toda la información está en una base de datos, solo tengo que recorrer la tabla en cuestión e ir aplicando la "función" para lograr el resultado que deseo.

Hola de nuevo, el link era sólo para aproximar una idea.

Basándome en código de rgstuamigo:

function FirstUp(APasar: string): string;
var
  i: Integer;
begin
  Result:= LowerCase(APasar);
  for i:= 1 to Length(APasar) do
   if ((i = 1) or (Result[i-1] = ' ')) and (Result[i] in ['a'..'z']) then
      Result[i]:= Upcase(Result[i]);
end;

Un ejemplo de uso:

procedure TForm1.Table1NameGetText(Sender: TField; var Text: String;
    DisplayText: Boolean);
begin
   Text:= FirstUp(TField(Sender).AsString);
end;

Saludos.

[dtomeysoto]

Empezado por Caro

Hola dtomeysoto, que yo sepa delphi no cuenta con algo directo para hacer lo que quieres. Tienes que hacerte la función.

Código Delphi [-]....................................... Ind, Posicion : Integer; begin Ind := 1; Nombre := LowerCase(Nombre); Nombre[1] := UpCase(Nombre[1]); While PosEx(' ', Nombre, Ind)>0 do begin Posicion := PosEx(' ',Nombre, Ind)+1; Nombre[Posicion] := UpCase(Nombre[Posicion]); Ind := Posicion; end; ....................................... end;


Saluditos

Gracias caro.