В следующем примере вызывается программа _DBRecCount( ) для подсчета числа записей в таблице, открытой в текущей рабочей области.

Код Visual FoxPro

SET LIBRARY TO DBRECCNT

DO CreateTest

? DBRECCOUNT() && call API routine

? RECCOUNT() && call built-in Visual FoxPro Function

PROCEDURE CreateTest

CREATE TABLE test (ABC C(20))

APPEND BLANK

REPLACE ABC WITH "This is record 1"

APPEND BLANK

REPLACE ABC WITH "This is record 2"

APPEND BLANK

REPLACE ABC WITH "This is record 3"

APPEND BLANK

REPLACE ABC WITH "This is record 4"

GO TOP

RETURN

Код C

#include <pro_ext.h>

FAR Example(ParamBlk FAR *parm)

{

_RetInt(_DBRecCount(-1), 10);

}

FoxInfo myFoxInfo[] = {

{"DBRECCOUNT", (FPFI) Example, 0, ""},

};

FoxTable _FoxTable = {

(FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo

};