Думал, что смогу отделаться через last, так не получилось

Цитата(Admin @ 17.7.2002, 00:33)

Думал, что смогу отделаться через last, так не получилось

break

Выход из цикла, помойму команда "EXIT";

Цитата(Guest @ 02.10.2002, 13:11)

Выход из цикла, помойму команда "EXIT";

Exit совершает ничто иное как безусловный переход в конец процедуры (jmp end;) т.е. выход из неё.

Код

procedure TForm1.Button1Click(Sender: TObject); begin  Exit;  ShowMessage ('This will never happen!'); end;

Если вызов Exit производится внутри цикла, то компилятор автоматически сначала подставляет Break.
Если вызов Exit идёт и блока try .. finally .. end то компилятор автоматически подставляет Abort
Так что не всё так безусловно.

Цитата(Song @ 02.10.2002, 16:12)

Если вызов Exit производится внутри цикла, то компилятор автоматически сначала подставляет Break. Если вызов Exit идёт и блока try .. finally .. end то компилятор автоматически подставляет Abort Так что не всё так безусловно.

Буду знать...а переход и в том и в другом случае делается безусловный

Цитата(Song @ 02.10.2002, 16:12)

Если вызов Exit производится внутри цикла, то компилятор автоматически сначала подставляет Break. Если вызов Exit идёт и блока try .. finally .. end то компилятор автоматически подставляет Abort Так что не всё так безусловно.

procedure TForm1.Button1Click(Sender: TObject);
begin
 while true do
 begin
   ShowMessage ('Test');
   Exit;
 end;
 ShowMessage ('This will never happen');
end;
А какая разница? Попробуй вместо Exit поставить break... Exit - это выход из процедуры без каких либо подставлений... Как проверить? смотрим код: jmp +$0a
А куда это мы прыгаем? правильно, прямо на ret в обход последней функции...Так что все таки это безусловный выход из процедуры.

Нет, здесь вызов выхода из текущей обработки и выход обрабатывается одноврменно, через стёк т.е. через трассировку или подставкой чего-нить в код Вы не проверите, поэтому придется мне поверить на слово  , т.е. на самом деле Break выполняется однако управление на ShowMessage() не передастся, так запрограммировано.

Вобщем, так или иначе, если мы хотим, чтобы все, что идет после цикла выполнилось Exit никак не подходит

Вообще Паскаль задумывался как строгий, структурный язык. Соответственно, всякие вольности типа выхода из процедуры в любой точке и произвольное прекращение цикла в нем не допускаются... В Дельфях можт уже все испортили, не знаю... А вообще в данном случае классика - замена for на while. Еще можно попробовать принудительно переменную цикла увеличить до верхней границы. На крайняк goto...

Цитата(Ampersand @ 03.10.2002, 07:38)

В Дельфях можт уже все испортили, не знаю...

1) Exit и Break появились в Turbo Pascal (не то в 6.0, не то в 7.0)
2) На чистом Паскале можно программировать наверное лишь чистую математику, да простейшие cgi. В связи с полным отсутствием интерфейса, экспорта функций, объектов и т.п. использование чистого классического Паскаля практически невозможно.
3) В настоящее время существует лишь одна распространённая реализация Паскаль сделанная Борландом (только не надо говорить что есть еще много - есть то они есть, да пользователей их пренебрежительно мало), следовательно стандарт  Паскаля De Facto определяют версии от Borland (точно так же как Basic определяется MS)

2 Ampersand, вообщето break (выход из цикла) и exit (выход из процедуры/функции) идут из старого доброго паскаля и я рад, что никто ничего НЕ испортил и НЕ выкинул их из Object Pascal. И давайте не будем вспоминать про goto

Цитата(rhf @ 03.10.2002, 09:27)

2 Ampersand, вообщето break (выход из цикла) и exit (выход из процедуры/функции) идут из старого доброго паскаля

Нет, не идут! В спецификации Паскаля их нет. Они появились, как я уже говорил, в Tp6 (это примерно 1993 год), до этого их ни в одной реализации вообще не было. А так называемый Object Pascal появился примерно тогда-же в том же TP6 c появлением Turbo Vision, ни в стандарте Паскаля, ни в одной реализации Паскаля до того никаких объектов вообще не было. Добавление объектов и разработка спецификации Object Pascal целиком заслуга Борланд, другие реализации Object Pascal появились только лет через 5 после Object Pascal от Борланд и практически базировались на последнем.

Моя версия Tp7
Ну уж никак не <=Tp5 :-)

Цитата(Song @ 03.10.2002, 10:40)

Моя версия Tp7 Ну уж никак не <=Tp5 :-)

Это точно, в TP5.5 абсолютно точно не было ни объектов, ни exit, ни break (только Halt был для любителей )