$ IfStatement = IF expression THEN StatementSequence
{ELSEIf expression THEN StatementSequence}
[ELSE StatementSequence]
END IF ";"
Оператор If обеспечивает условное выполнение операторов. Оператор вычисляет по порядку значения выражений в условиях. Если найдется выражение, значение которого будет истинно (True), то выполняется соответствующая последовательность операторов. Если ни одно из выражений не вернет True, тогда выполняется последовательность операторов, указанная после фразы Else, если таковая имеется. После выполнения соответствующей группы операторов управление передается следующему операторы после оператора If.
Sub IfSample;
Var
a, b: Integer;
c: Double;
Begin
//.....
//.....
If a = 0 // Условие Then
c := b; // Операторы, выполняющиеся, если Условие=True
Else
c := b / a; // Операторы, выполняющиеся, если Условие=False
End If;
End Sub IfSample;
См. также: