Повторное определение константы

Описание

В операторе выбора Select Case определено более одного блока Case для проверки одного и того же константного значения.

Способ устранения

Удалить дублирующиеся блоки Case, либо изменить в дублирующем блоке проверяемое значение.

Пример

Sub UserProc;
Var
    i: Integer;
Begin
    Select Case i
        Case 1 To 9//Действия
        Case 3//Действия
    End Select;
End Sub UserProc;

При компиляции указанного кода на строке «Case 3:» будет сгенерирована ошибка «Повторное определение константы». Данная ошибка возникает, потому что значение «3» попадает в диапазон [1:9], проверяемый в другом блоке «Case». Для разрешения ошибки необходимо удалить блок «Case 3:», либо изменить проверяемое в нем значение.

См. также:

Ошибки компилятора