Cita:
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