Возвращает значение любого типа Visual FoxPro, за исключением Memo.
void _RetVal(Value FAR *val)
Value FAR *val; /* Указатель на структуру value. */ |
Примечания
_RetVal( ) передает заполненную структуру Visual FoxPro типа Value. _RetVal( ) следует использовать для возвращения строки, содержащей внутренние нуль-символы.
Для получения дополнительной информации о том, как создавать библиотеку API и интегрировать её в Visual FoxPro, смотрите Доступ к API Visual FoxPro.
Пример
В следующем примере _RetVal( ) возвращает параметр символьного типа, преобразованный в прописные символы.
Код Visual FoxPro
Copy Code | |
---|---|
SET LIBRARY TO RETVAL ? XUPPER("upper") && returns "UPPER" |
Код C
Copy Code | |
---|---|
#include "pro_ext.h" void NullTerminate(Value FAR *cVal) { if (!_SetHandSize(cVal->ev_handle, cVal->ev_length + 1)) { _Error(182); // "Insufficient memory" } ((char FAR *) _HandToPtr(cVal->ev_handle))[cVal->ev_length] = '\0'; } FAR Example(ParamBlk FAR *parm) { char FAR *pString; int i; NullTerminate(&parm->p[0].val); pString = _HandToPtr(parm->p[0].val.ev_handle); for (i = 0; i < parm->p[0].val.ev_length; i++) { if ('a' <= *pString && *pString <= 'z') { *pString += ('A' - 'a'); } pString++; } _RetVal(&parm->p[0].val); } FoxInfo myFoxInfo[] = { {"XUPPER", (FPFI) Example, 1, "C"}, }; FoxTable _FoxTable = { (FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo }; |
Смотрите также
Справочное руководство
Процедура библиотеки API _RetChar( )Процедура библиотеки API _RetCurrency( )
Процедура библиотеки API _RetDateStr( )
Процедура библиотеки API _RetDateTimeStr( )
Процедура библиотеки API _RetFloat( )
Процедура библиотеки API _RetInt( )
Процедура библиотеки API _RetLogical( )
Прочие ресурсы
Конструкции библиотеки API© Microsoft Corporation. All rights reserved. Microsoft is not reponsible for the contents of the translated help topics.