Помещает значение переменной памяти или поля текущей записи, указанные с помощью loc в val.
|
|---|
int _Load(Locator FAR *loc, Value FAR *val)
Locator FAR *loc; /* размещение переменной. */
Value FAR *val; /* Хранение значения переменной. */ |
Примечания
Пример
Приведенный ниже пример преобразует в верхний регистр строчный параметр, посланный по ссылке.
Код
Visual FoxPro
|
|  Скопировать
код |
|---|
SET LIBRARY TO LOAD
x = "abc"
= XUPPER(@x)
? x |
Код
C
|
| Скопировать
код |
|---|
#include <pro_ext.h>
void FAR Upper(ParamBlk FAR *parm)
{
char FAR *pString;
Value val;
int i;
//
// _Load() и _Store представляют собой функции для pass-by-reference.
//
_Load(&parm->p[0].loc, &val);
//
// FoxPro не проверяет тип аргументов pass-by-reference, поэтому это делаем мы.
//
if (val.ev_type != 'C')
{
_Error(9); // "Data type mismatch"
}
pString = _HandToPtr(val.ev_handle);
for (i = 0; i < val.ev_length; i++)
{
if ('a' <= *pString && *pString <= 'z')
{
*pString += ('A' - 'a');
}
pString++;
}
_Store(&parm->p[0].loc, &val);
//
// Нам необходимо высвободить дескриптор, который мы создали с помощью _LOAD()
//
_FreeHand(val.ev_handle);
}
FoxInfo myFoxInfo[] =
{
{"XUPPER", (FPFI) Upper, 1, "R"},
};
FoxTable _FoxTable =
{
(FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo
}; |
Смотрите
также
Замечание