Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

Convertir la primera letra de una cadena en lazarus

Started by El_Chava , Oct 16 2015 11:02 AM

Please log in to reply

5 replies to this topic

#1 El_Chava

Member

Miembros
40 posts

Posted 16 October 2015 - 11:02 AM

Hola amigos más que duda les traigo un pequeño código que me ayudo a convertir la primera letra de una cadena en mayúscula. Todo se origino por que utilizo una plantilla en word en donde dentro de las variables que se envian a dicho documento se tienen que poner el nombre completo de una persona. Por la importancia del documento se debe poner primera letra en mayúscula del nombre y los apellidos la. Bueno les dejo el código.

pascal

procedure TFrmFormulario.btnConvertirClick(Sender: TObject);
Var
cadena:string;
begin
  cadena:='lic. nombre apeliidopaterno apellidomaterno';
   Showmessage('La cadena es '+  AnsiProperCase(cadena,[#032,#046])); 
{lo que se encuentra entre [], son lo caracteres que serviran como delimitadores, en este caso se uso el caracter space y el "."}
end;

El resultado quedaría así " La cadena es Lic. Nombre Apeliidopaterno Apellidomaterno".
Se utilza la función AnsiProperCase que se encuentra en la unidad "strutils". Bueno espero que les sirva este pequeño código.