Ir al contenido


Foto

Convertir la primera letra de una cadena en lazarus


  • Por favor identifícate para responder
5 respuestas en este tema

#1 El_Chava

El_Chava

    Member

  • Miembros
  • PipPip
  • 40 mensajes

Escrito 16 octubre 2015 - 11:02

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
  1. procedure TFrmFormulario.btnConvertirClick(Sender: TObject);
  2. Var
  3. cadena:string;
  4. begin
  5. cadena:='lic. nombre apeliidopaterno apellidomaterno';
  6. Showmessage('La cadena es '+ AnsiProperCase(cadena,[#032,#046]));
  7. {lo que se encuentra entre [], son lo caracteres que serviran como delimitadores, en este caso se uso el caracter space y el "."}
  8. 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.
  • 3

#2 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 16 octubre 2015 - 11:05

Gracias por el aporte.
  • 0

#3 Delphius

Delphius

    Advanced Member

  • Administrador
  • 6.295 mensajes
  • LocationArgentina

Escrito 16 octubre 2015 - 11:06

Se agradece el aporte.

Desconocía la función AnsiProperCase() :)

 

Saludos,


  • 0

#4 El_Chava

El_Chava

    Member

  • Miembros
  • PipPip
  • 40 mensajes

Escrito 16 octubre 2015 - 11:11

No hay que agradecer, para eso estamos para ayudar y regresar un poco de la ayuda que se recibe a través de esta comunidad. Saludos  (y)


  • 0

#5 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.446 mensajes
  • LocationMéxico

Escrito 16 octubre 2015 - 11:36

Gracias por el aporte amigo.

 

Saludos


  • 0

#6 escafandra

escafandra

    Advanced Member

  • Administrador
  • 4.107 mensajes
  • LocationMadrid - España

Escrito 16 octubre 2015 - 12:11

De repente me ha venido este tema a la mente.

 

Saludos.


  • 0




IP.Board spam blocked by CleanTalk.