FiveTech Support Forums

#include "Fivewin.ch"


FUNCTION MAIN()

    ? ISOEM( CHR( 128 ) )
    ? ISANSI( CHR( 128 ) )

    RETURN NIL

CLIPPER ISANSI( PARAMS )         // cString    --> lAnsi
{
   LPBYTE pString = ( LPBYTE ) _parc( 1 );
   WORD  w = 0, wLen = _parclen( 1 );
   BOOL  bAnsi = FALSE;

   while( w < wLen && ! bAnsi )
   {
      bAnsi = ( pString[ w ] >= 224 && pString[ w ] <= 255 ) || pString[ w ] == 128;
      w++;
   }

   _retl( bAnsi );
}

//----------------------------------------------------------------------------//

CLIPPER ISOEM( PARAMS )         // cString    --> lOem
{
   LPBYTE pString = ( LPBYTE ) _parc( 1 );
   WORD  w = 0, wLen = _parclen( 1 );
   BOOL  bOem = FALSE;

   while( w < wLen && ! bOem )
   {
      bOem = pString[ w ] > 128 && pString[ w ] <= 168;
      w++;
   }

   _retl( bOem );
}