13-07-2010
|
Miembro
|
|
Registrado: dic 2005
Posts: 173
Reputación: 19
|
|
Cita:
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.
|