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

[Arigato]

Сообщение от GunSmoker

Метки и GOTO могут стать кошмаром, если ими злоупотреблять. Но в то же время есть парочка ситуаций, где их применение легитимно. Ты уж извини, но любые аргументы "это не читаемо" тут высосаны из пальца. "Мне не нравится" - это нифига не аргумент.

В том и проблема, что грань трудно провести, а в итоге получаем то, что получаем. Еще раз обращу ваше внимание на эти два идентичных куска кода, один из которых с goto и выглядит трудноваримым, а другой без goto: http://programmersforum.ru/showpost....8&postcount=21

Сообщение от GunSmoker

Ну и пожалуйста. Я двумя руками за и даже не отказался бы от такого в Delphi (я на нём пишу).

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

Сообщение от GunSmoker

Это - GOTO и метки в явном виде. Даже хотя они так не называются. И говорить что вот этот вот код надо переписать, потому что тут GOTO, а вот тот код надо использовать, потому что там именованные блоки - это двоемыслие в чистом виде. Типа, если цветы переименовать в тырбырмыр, то дарить их девушке уже не надо?

Опять не согласен. Goto более низкоуровневая конструкция. Здесь же просто именованные блоки, мы указываем из какого блока надо выйти или в какой блок надо выйти. А метка может находится в произвольном месте любого блока, что снижает понятность кода. Что бы было понятнее, еще один пример (абстрагируясь от языка, т.к. Pascal такого, на сколько я понимаю, даже не позволит):

procedure XXX;
begin
  ...
  if <...> then exit;
  ...
end;
begin
  ...
  XXX;
  ...
end.

Тут exit - это как раз выход из блока (или тела процедуры). Можно его сравнивать с goto, но это более высокоуровневая конструкция, ибо:

procedure XXX;
begin
  ...
  if <...> then goto main_next;
  ...
end;
begin
  ...
  XXX;
  main_next:
  ...
end.

Надеюсь, вам не придет в голову говорить, что данный код ничем принципиально не отличается от предыдущего.

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

Вот возникла рабочая ситуация...

Программа - граббер ссылок с сайта...

Собственно все в 3 цикла(вложены друг в друга).

Сайт имеет ограничение по числу запросов к нему. По этому я не учел этого в первый раз пришлось все "на ходу" делать. Сейчас же циклы вложены друг в друга, и жостко веду учет кол-ва сделанных запросов и даю отдохнуть сайту на n минут.

Заказчик доволен, но сказал, что хочет, чтобы программа запроминала, что качала ранее(первая ссылка) и переходила к след. стилю.

    //Перебор стилей, с которых собираем ссылки
    for nStyle_Current := 0 to fStylesList.Count - 1 do
    begin
       //Перебор страниц в стиле
       for nStyle_CurrentPage := 1 to nStyle_PageCount do
      begin

         //Перебор ссылок на отдельные страницы с файлами
        for nNews_CurrentPage := 0 to fNewsList.Count - 1 do
        begin

          {
            И вот тут самое главное. Если текущая nNews_CurrentPage уже  закачивалась ранее, то я должен выпрыгнуть из 2 цыклов: 
for nNews_CurrentPage := 0 to fNewsList.Count - 1 do и for nStyle_CurrentPage := 1 to nStyle_PageCount do

т.е. нужно чтобы программа перешла к обработке след. элемента цикла
for nStyle_Current := 0 to fStylesList.Count - 1 do
          }
          if (fNewsList.Strings[nNews_CurrentPage] = fStylesList.Styles
            [nStyle_Current].LastLink) then
          begin
            Log('Ссылка "' + fNewsList.Strings[nNews_CurrentPage] +
              '" закачивалась ранее...');
            Break; //это проблему не решает..
          end;

        end; // style news list

      end; // Spyle page list

    end; // StulesList

Как я могу выйти из ситуации и можно ли тут GOTO?

[Пепел Феникса]

1)почему бы не применить TStrings.IndexOf?
2)я бы оформил как функцию перебор страниц в стиле.

[Аватар]

Конкретно по вопросу - выход из цикла по GOTO допустим

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

Сообщение от Аватар

Конкретно по вопросу - выход из цикла по GOTO допустим

Теперь вопрос: как?

label lab;

var
  i1,i2,i3:Integer;
begin
  for i1=0 to 1 do
  begin

  lab: continue; //Так? 

    for i2:=0 to 2 do
    begin
       for i3:=0 to 3 do
       begin
          If 1 = 1 then GOTO lab; 
       end;
    end;
  end;
end;

[Аватар]

Можно и без continue

for i1=0 to 1 do
  begin
    for i2:=0 to 2 do
    begin
       for i3:=0 to 3 do
       begin
          If 1 = 1 then GOTO lab; 
       end;
    end;
    lab:
  end;

[Alex11223]

Видимо имелось в виду

  for i1=0 to 1 do
  begin
    for i2:=0 to 2 do
    begin
       for i3:=0 to 3 do
       begin
          If 1 = 1 then GOTO lab; 
       end;
    end;
  end;
end;
lab:

[Аватар]

Насколько понял имеется в виду выход из 3-его в 1-ый цикл, а не за пределы 1-го

[Пепел Феникса]

Можно и без continue

нужно, иначе до второго цикла так и не дойдет.

[Аватар]

нужно, иначе до второго цикла так и не дойдет.

Зачем? Вернется на начало 1-го и дальше по циклу. Тот Continue тоже самое делает