Осуществляет условное выполнение группы команд исходя из значения логического выражения.
Синтаксис:
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