topic-10193

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

PICTURE "@!"
Posted: Mon Mar 03, 2008 11:25 PM

Mejor aún, vamos a definirla en lenguaje C y usando el mismo nombre que usa el API de Windows:

CharUpper( cStr | nValue ) --> cUpperStr

Se puede usar indistintamente como CharUpper( Asc( "ñ" ) ) ó como CharUpper( "ñ" ). El API de Windows permite estos dos comportamientos.

regards, saludos

Antonio Linares
www.fivetechsoft.com

Manuel Valdenebro

Posts: 711

Joined: Thu Oct 06, 2005 09:57 PM

PICTURE "@!"
Posted: Tue Mar 04, 2008 06:17 AM

Antonio Linares wrote:Visto que xHarbour no lo hace bien.

Como comenté en un mensaje anterior, a mi me funciona perfectamente y no creía que el error estuviera en la TGET.

En todos mis programas, al principio, incluyo estos mandatos de xHarbour:

REQUEST HB_LANG_ES
HB_LangSelect("ES")
REQUEST HB_CODEPAGE_ESWIN
HB_SetCodePage("ESWIN")

Acabo de comprobar, que si comento (anulo) las dos últimas, se produce el error y no funciona el PICTURE "@!" cuando pulso "ñ".

¿A los que les da el error con xHarbour, están incluyendo estas claúsulas y las librerias correspondientes?.

Un saludo

Manuel

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

PICTURE "@!"
Posted: Tue Mar 04, 2008 08:04 AM

Manuel,

Posiblemente se debe a que usas un build antiguo de xHarbour (0.99.61) mientras que la versión actual de xHarbour es la 1.1.0.

Nosotros lo hemos probado como tu comentas (revisa mis mensajes anteriores) y falla.

Mientras se arregle ó no, lo más seguro es usar el API de Windows.

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

PICTURE "@!"
Posted: Tue Mar 04, 2008 08:28 AM

Aqui está la función en C, para asi obtener la máxima rapidez y las dos posibilidades que ofrece el API de Windows:

Code: Select all Collapse

CLIPPER CHARUPPER( PARAMS )
{
   unsigned char uc[ 2 ];
   
   if( ISNUM( 1 ) )
   {	
      uc[ 0 ] = _parnl( 1 );
      uc[ 1 ] = 0;
      
      _retc( CharUpper( ( LPSTR ) uc ) );
   }   
   else   
      _retc( CharUpper( _parc( 1 ) ) );
}

regards, saludos

Antonio Linares
www.fivetechsoft.com

Andrés González

Posts: 632

Joined: Thu Jan 19, 2006 10:45 AM

PICTURE "@!"
Posted: Tue Mar 04, 2008 02:32 PM

Ahora perfecto sin tener que hacer mas comparaciones de las necesarias. Un 10 a la solución del problema.

Saludos

Andrés González desde Mallorca

FiveTech Support Forums

Continue the discussion