Обьявление метки

[Человек_Борща]

Как я уже сказал, они не безопасны.
Они пережиток прошлого.

Как пример:

label Rep;

var
 i:integer;
begin
  i:=0;
Goto rep;
           rep: 
             i:=i+1;
             If not (i=1000) then
            Goto Rep; 
end;

Мне очень сильно напоминает:

var
   i:integer;
begin
  i:=1;
  repeat
  i:=i+1;
  until (i=1000);
end;

И какой смысл от них? Портят код, Терячется всяческое понимание того, что твориться на данный момент в коде. Да и

Никогда не используйте его для перехода в или из блока Try, а также в циклах или операторах выбора.

Вообще заставляет вешаться т.к. свободы использования нет вообще.

Думаю они остались от assembler'а. Или спец. для него и зарезервированы. Но мне кажется даже там есть свой способ обьявления меток.

[phomm]

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

Не буду ничего говорить про надо ли их использовать или не надо, скажу лишь, что я не использую их почти никогда, кроме совсем уж редких случаев, когда не городить хочется, а втиснуть 1-2 вполне логичных в данном месте метки, вот пример (из Интакт, игры моей, сокращенный):

{here we cast a single spell}
multicast:
          case ...{spell} of
            siheal : ...
            siarrow : ...{and so on}            
            end; // case spell          
          if ...{multi-spell}
            then begin            
            for i := 0 to fieldheight
              do for j := 0 to fieldwidth
                do if ...[ i, j] {cast spell in a field-cell}
                  then begin
                  ...
                  goto multicast ; {just replay singlespell-code}
                  end;
            ...
            end;

знаю что надо рефакторить )) но пока писал всё то что есть, порядком и устал и запутал , и сейчас уже время не то, так что, пока оно работает, ничуть не запутывает код (для меня, так как я единственный разработчик)