В следующем примере выполняется программа _DBReplace( ), использующая два па аметра вызова: табличное поле (передается по ссылке) и значение соответствующего типа. Перед вызовом _DBWrite( ) и после него выполняется команда Visual FoxPro LIST NEXT 1.

Код Visual FoxPro

SET LIBRARY TO DBWRITE

DO CreateTest

GO 3

=DBWRITE( @ABC, "Replacement Record 1")

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)

{

int RetValue;

if (RetValue = _DBReplace(&parm->p[0].loc, &parm->p[1].val)) {

_UserError("\n_DBReplace() failed");

}

if (RetValue = _DBWrite(-1)) {

_Error(-RetValue);

}

_Execute("LIST NEXT 1");

}

FoxInfo myFoxInfo[] = {

{"DBWRITE", (FPFI) Example, 2, "R,?"},

};

FoxTable _FoxTable = {

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

};