[Lazarus-es] lowercase

[franmate en gmail.com]

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ó:
> 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!
>
>