Unificar nombres y apellidos

[*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

[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.