Ver Mensaje Individual
  #1  
Antiguo 16-10-2015
El_Chava El_Chava is offline
Miembro
 
Registrado: jun 2005
Posts: 62
Reputación: 19
El_Chava Va por buen camino
Thumbs up Convertir la primera letra de una cadena en lazarus

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.

Código:
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.
Responder Con Cita