Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus-es / 2012-09

lowercase

3 messages · 2 people · –

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Paola Bruccoleri

Hola todos..
tengo una funci�n que convierte una descripci�n q est� toda en may�sculas a min�sculas excepto la primera letra.

function AMinusc( sCadena : String ) : String;
begin
   if sCadena  '' then
     result := sCadena[1] + LowerCase(Copy(sCadena,2,200))
   else
     result := '';
end;

el problema es con las letras con tilde o �, que siempre me las deja en may�scula.
Por ejemplo:
PULP�N -> Pulp�n

quiz�s haya alguna otra funci�n que me est� olvidando ahora muchas gracias!

Reply by email

franmate en gmail.com
to Paola Bruccoleri

Hola,

Cambia   result := sCadena[1] + LowerCase(Copy(sCadena,2,200))
Por     result := utf8Copy(sCadena,1,1) +
UTF8LowerCase(utf8Copy(sCadena,2,200))

No olvides incluir la unidad LCLProc en el uses

Atte
FranMac�as

El d�a 27 de septiembre de 2012 00:08, Paola Bruccoleri <pbruccoleri en adinet.com.uy> escribi�:

Show quoted text 21 lines
Hola todos.. tengo una funci�n que convierte una descripci�n q est� toda en may�sculas a min�sculas excepto la primera letra. function AMinusc( sCadena : String ) : String; begin if sCadena '' then result := sCadena[1] + LowerCase(Copy(sCadena,2,200)) else result := ''; end; el problema es con las letras con tilde o �, que siempre me las deja en may�scula. Por ejemplo: PULP�N -> Pulp�n quiz�s haya alguna otra funci�n que me est� olvidando ahora muchas gracias!

Reply by email

Paola Bruccoleri
to franmate en gmail.com

El 26/09/2012 08:08 p.m., franmate en gmail.com escribi�:

Show quoted text 10 lines
Hola, Cambia result := sCadena[1] + LowerCase(Copy(sCadena,2,200)) Por result := utf8Copy(sCadena,1,1) + UTF8LowerCase(utf8Copy(sCadena,2,200)) No olvides incluir la unidad LCLProc en el uses Atte FranMac�as

Hola Fran..
perfecto! muchas gracias!

Reply by email