Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

досрочный выход из for-цикла [D7, WinXP]


нарка ©   (2005-09-17 20:36:00) 

как выйти из цикла for прежде чем он завершился
for n:=1 to 10000 do
begin
if a=5 then ???????//при достижении этого условия надо выйти из цикла
end


msguns   (2005-09-19 10:16:00) [1]

>Brother ©   (19.09.05 10:09) [13]
>Ндя, ну и нравы, метки глаза режут.

Это не нравы, а стиль программирования, который гласит о том, что метка используется в том случае, если обращение к блоку, адресуемое ею, возможно из разныхмест кода. Чего в данном случае напрочь не наблюдается.


Brother   (2005-09-19 10:09:00) [2]

Ндя, ну и нравы, метки глаза режут.


msguns   (2005-09-19 09:16:00) [3]

>Brother ©   (19.09.05 09:03) [11]
>Чем метки помешали то?

Глаза режут


Brother   (2005-09-19 09:03:00) [4]

Чем метки помешали то?


Fl@sh   (2005-09-19 08:58:00) [5]


> И меж прочем метки - полезная вещь!


Но все равно, желательно обходиться без них, если есть возможность. А в даном случае лучше держаться ответа [1].. imho


Brother   (2005-09-19 08:38:00) [6]

Вам нужны варианты? Вот один из них :)
И меж прочем метки - полезная вещь!


Думкин   (2005-09-19 07:36:00) [7]


> Brother ©   (19.09.05 04:34) [7]
> label ext;
>
> ....
>
> for n:=1 to 10000 do
> begin
> if a=5 then goto ext;
> end;
>
> Ext:
>
> ....
>
> Ндя, не проснулся
> <Цитата>


И даже в этот раз - не проснулся. Ожидаю битвы - вокруг меток.
В ТP7 уже можно было выйти из цикла без них.


Brother   (2005-09-19 04:34:00) [8]

label ext;

....

for n:=1 to 10000 do
begin
if a=5 then goto ext;
end;

Ext:

....

Ндя, не проснулся


brother   (2005-09-19 04:32:00) [9]

label exit;

....

ext:false;

for n:=1 to 10000 do
begin
if a=5 then goto ext;
end;

Exi:


Плохиш   (2005-09-17 23:49:00) [10]


> Fenik ©   (17.09.05 23:36) [4]
> Нет, баттон это не булка :))

В данной ветке именно булка


Fenik   (2005-09-17 23:36:00) [11]


> [3] app ©   (17.09.05 22:48)
> Floppy ©   (17.09.05 21:11) [2]
> А зачем хлебобулочные изделия в ответе?


Нет, баттон это не булка :))


app   (2005-09-17 22:48:00) [12]

Floppy ©   (17.09.05 21:11) [2]
А зачем хлебобулочные изделия в ответе?


Floppy   (2005-09-17 21:11:00) [13]

break по ifа теле цикла Application.ProcessMessages + можно "вмонтировать" баттон


wicked   (2005-09-17 20:37:00) [14]

break;


Наверх

Титульная страница Поиск, карта сайта Написать письмо