Re: Valor por defecto en una DATA de una clase
Posted: Sat Sep 12, 2015 5:06 pm
O tal vez lo que quieras es modificar una cadena a partir de un lugar concreto...
En Eagle1 lo hice así:
En Eagle1 lo hice así:
- Code: Select all Expand view
//----------------------------------------------------------------------------//
// Funciones para usar desde xBase
//----------------------------------------------------------------------------//
// ChgAtEnd( a, b, n )
// Sustituye en 'a' los ultimos 'n' digitos por la cadena 'b'
HB_FUNC( CHGATEND )
{
const char * szStr1 = hb_parc( 1 );
const char * szStr2 = hb_parc( 2 );
unsigned int uiLen = hb_parclen( 1 ) - hb_parni( 3 );
unsigned int uiTotalLen = uiLen + hb_parclen( 2 );
char * szRet = (char *) hb_xgrab( uiTotalLen + 1 );
hb_xmemcpy( szRet, szStr1, uiLen );
szRet[ uiLen ] = '\0';
hb_xstrcat( szRet, szStr2, NULL );
hb_retclen_buffer( szRet, uiTotalLen );
}
//----------------------------------------------------------------------------//