Share via

_RetInt( ) (Rutina de biblioteca API)

  • Artículo

Establece el valor devuelto de la biblioteca como un valor numérico.

void _RetInt(long ival, int width)
long ival;                     /* Long integer value. */
int width;                     /* Number of columns to display number. */

Observaciones

El parámetro width especifica el número de columnas que Visual FoxPro utiliza para mostrar el número. Si no conoce el ancho, emplee 10.

Para obtener más información acerca de cómo crear una biblioteca API e integrarla con Visual FoxPro, vea Acceso a la API de Visual FoxPro.

Ejemplo

El ejemplo siguiente lleva a cabo algunas operaciones en la tabla abierta en el área de trabajo actual. Muestra el valor devuelto por _RecCount( ).

Código Visual FoxPro

SET LIBRARY TO RETINT  
? CTEST()

Código C

#include  <pro_ext.h>
#define nl _PutChr('\n')

long FAR CTest()
{
   long rc,rec;
   int workarea = -1;
   int flag = 0;
   int rn,recn;

   rc = _DBRewind(workarea);
   _PutStr("top");  nl;
   rc = _DBSkip(workarea, 5);
   _PutStr("skipped 5");  nl;
   
   rc = _DBAppend(workarea,flag);
   _PutStr("Appending"); nl;
   rc = _DBRewind(workarea);
   _PutStr("top");  nl;
   rn = _DBRecCount(workarea);
   _RetInt(rn, 10);
   rec = rn;
   return rn;
}

FoxInfo myFoxInfo[] = {
   {"CTEST", (FPFI) CTest,0 , ""},
};
FoxTable _FoxTable = {
   (FoxTable FAR *)0, sizeof(myFoxInfo) / sizeof(FoxInfo), myFoxInfo
};

Vea también

_RetChar( ) (Rutina de biblioteca API) | _RetCurrency( ) (Rutina de biblioteca API) | _RetDateStr( ) (Rutina de biblioteca API) | _RetDateTimeStr( ) (Rutina de biblioteca API) | _RetFloat( ) (Rutina de biblioteca API) | _RetLogical( ) (Rutina de biblioteca API) | _RetVal( ) (Rutina de biblioteca API)