Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

13th
Янв

Метки в Pascal/delphi. Зачем они?

Posted by Chas under Delphi

Интересен вопрос, зачем в паскале/delphi реализованы местки(Label)?
Нет не TLabel.
По которым можно прыгать используя goto.

Если ихопасно использовать, почему они поддерживаются компилятором, и где их БЕЗОПАСНО использовать?

GunSmoker
Метки нужны, потому что они удобны. Поэтому они есть и будут.

Противники меток (которые адекватные) говорят не против них вообще, а против злоупотребления ими, вроде такого:

i := 0;

L20:

i := i + 1;

if i <= 10 then
 goto L70;
if i > 10 then

  goto L50;

L50:

WriteLn('Программа завершена.');

Exit;

L70:

WriteLn(i, ' квадрат = ', i * i);

goto L20;

И в этом плане мы все с ними согласны, разве не так?

Что делает этот кусок кода? Я думаю, что никто вот так сходу не скажет. Вот эквивалентный код без меток:

for i := 1 to 10 do

  WriteLn(i, ' квадрат = ', i * i);

WriteLn('Программа завершена.');

Намного проще читается, не так-ли?

Исторически, вся эта «анти-goto» кампания была направлена против кода из первого примера. Кто будет спорить, что код с GOTO запутаннее? Никто. Такой код получался десять тысяч лет назад из-за неразвитости и некоторых особенностей ранних языков программирования.

Сейчас, конечно, такой код не станет писать даже нулевой студент-заочник. Так что никакой проблемы с GOTO, с которой нужно бороться, сегодня нет.

(кстати, вот ещё такой финт ушами: переход на метку внутрь цикла из кода вне цикла — тоже отвратительная штука).

Итак, когда метками злоупотребляют и используют их не по назначению, это — плохо. Именно так надо понимать «goto/метки — зло», а не то, что они зло сами по себе (звучит знакомо? ага, указатели — ровно так же).

Два примера сценариев, где использование меток предпочтительнее других подходов:
1. Прерывание двухкратно вложенного цикла (уже привели пример).
2. Обработка ошибок:

K := DoSomething;

if K = 0 goto Error;

K := DoSomethingElse;

if K = 0 goto Error;

K := Funcenstein;

if K = 0 goto Error;

Result := True;

Exit;
Error:

WriteLn('Ошибка');

Result := False;

end;

По второму пункту — конечно, в современных языках есть SEH с его конструкцией try/finally, которая отлично обрабатывает в т.ч. и Exit, но в более ранних языках (досовский Паскаль, например), ничего такого нет, так что метки тогда были существенно полезнее.

Итого: в реальных программах метки/goto может встретиться несколько раз.

P.S. Сколько ни работал в Delphi, единственные случаи в моей практике, когда мне нужно было использовать GOTO/метки — выход из вложенных циклов. Случается это крайне редко.

тема на форуме