_RetLogical( ) рассматривает ноль как значение "ложь", а любое ненулевое значение - как "истину".

Для получения дополнительной информации о том, как создавать библиотеку API и интегрировать её в Visual FoxPro, смотрите Доступ к API Visual FoxPro.

Следующий пример иллюстрирует процесс бросания монеты. Он возвращает .T. или .F., в зависимости от значения библиотечной функции RAND( ).

Код Visual FoxPro

	Copy Code
SET LIBRARY TO RETLOGIC ? RETLOGICAL() && returns .T. or .F. pseudo-randomly

Код C

	Copy Code
#include <pro_ext.h> FAR Example(ParamBlk FAR *parm) { _RetLogical(rand() % 2); } FoxInfo myFoxInfo[] = { {"RETLOGICAL", (FPFI) Example, 0, ""}, }; FoxTable _FoxTable = { (FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo };

Справочное руководство

Прочие ресурсы