В следующем примере отображается код ошибки, возвращаемый программой _EdLastError( ) после нескольких операций редактирования. Поскольку номера ошибок ре актирования зарезервированы для серьезных ситуаций, таких как нехватка памяти, ижеприведенный пример обычно выдает код ошибки 0.

Код Visual FoxPro

SET LIBRARY TO EDLASTER

= EDLASTERR("x") && displays _EdLastError() after operations on file "x"

Код C

#include <pro_ext.h>

void putLong(long n)

{

Value val;

val.ev_type = 'I';

val.ev_long = n;

val.ev_width = 10;

_PutValue(&val);

}

FAR Example(ParamBlk FAR *parm)

{

char FAR *pFileName;

WHANDLE wh;

EDENV EdEnv;

if (!_SetHandSize(parm->p[0].val.ev_handle,

parm->p[0].val.ev_length+1))

{

_Error(182); // "Insufficient memory"

}

_HLock(parm->p[0].val.ev_handle);

pFileName = (char FAR *) _HandToPtr(parm->p[0].val.ev_handle);

pFileName[parm->p[0].val.ev_length] = '\0';

wh = _EdOpenFile(pFileName, FO_READONLY);

_HUnLock(parm->p[0].val.ev_handle);

// Position past end of file

_EdGetEnv(wh, &EdEnv);

_EdSetPos(wh, EdEnv.length + 128);

_PutStr("\n_EdLastError() ="); putLong(_EdLastError(wh));

// _EdCopy() with no selection

_EdSetPos(wh, 1);

_EdCopy(wh);

_PutStr("\n_EdLastError() ="); putLong(_EdLastError(wh));

// _EdScrollToSel() with no selection

_EdScrollToSel(wh, TRUE);

_PutStr("\n_EdLastError() ="); putLong(_EdLastError(wh));

}

FoxInfo myFoxInfo[] = {

{"EDLASTERR", (FPFI) Example, 1, "C"},

};

FoxTable _FoxTable = {

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

};