Лекция: GoTo идентификатор

где GoTo – ключевое слово;

идентификатор – одна из меток программы.

Метка – это идентификатор, помещаемый слева от программного оператора и отделенный от него двоеточием. Например:

m1: Text1.Text = «это метка»

Оператор перехода для перехода к оператору с меткой m1 будет иметь вид:

GoTo m1

Следует сказать о том, что для получения хорошего стиля программирования следует избегать применения оператора GoTo, так как в этом случае ухудшается читаемость и понимание программы.

Пример Delphi

var
i: Integer;
label
GotoLabel;
begin
for i := 1 to 10 do
begin
ShowMessage('i = '+IntToStr(i));
if i = 4 then Goto GotoLabel; // Выход из цикла с условием
end;
ShowMessage('Цикл закончился нормально');
GotoLabel:
ShowMessage('Цикл закончился с значением i = '+IntToStr(i));
end;

Пример Visual Basic

Private Sub cmdTryIt_Click()

Dim lngFactorial As Long

Dim intInputNbr As Integer

Dim intLoopCtr As Integer

intInputNbr = Val(InputBox(«Enter a number:», «GoTo Demo»))

lngFactorial = 1

intLoopCtr = 1

Loop_Start:

If intLoopCtr > intInputNbr Then GoTo 10

lngFactorial = lngFactorial * intLoopCtr

intLoopCtr = intLoopCtr + 1