Команда IF ... ENDIF

Осуществляет условное выполнение группы команд исходя из значения логического выражения.

Синтаксис:

IF lExpression
	Commands
[ELSE
	Commands]
ENDIF

Параметры:
lExpression
Задает вычисляемое логическое выражение. Если его значение "истина" (.T.), будут выполнены все команды, расположенные между IF и оператором ELSE или ENDIF (тем из двух, который стоит раньше).
Если значение lExpression "ложь" (.F.) и задан оператор ELSE, выполняются все команды между ELSE и ENDIF.
Если значение lExpression "ложь" (.F.) и оператор ELSE не задан, все команды между IF и ENDIF игнорируются. В этом случае выполнение программы продолжается с первой команды, следующей за оператором ENDIF.

Комментарии:
Блоки IF ... ENDIF можно вкладывать друг в друга. В строках с операторами IF, ELSE и ENDIF можно задавать комментарии. Они будут игнорироваться во время компиляции и выполнения программы.

Пример:

CLOSE DATABASES
OPEN DATABASE (HOME( ) + 'samples\data\testdata')
USE Customer		&& Open customer table

GETEXPR 'Enter condition to locate ' TO gcTemp;
	TYPE 'L' DEFAULT 'COMPANY = ""'
LOCATE FOR &gcTemp	&& Enter LOCATE expression
IF FOUND( )		&& Was it found?
	DISPLAY		&& If so, display the record
ELSE  && If not found
	? 'Condition ' + gcTemp + ' was not found '	&& Display a message
ENDIF
USE

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем - 02.02.2003