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

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

Как пропустить выполнение цикла верхнего уровня?

asdfa ©   (2008-01-25 16:30:00) 

Всем доброго времени суток.
Есть:
for i := 0 to cnt do
begin
  ...
  if chto-to
  for j := 0 to cnt2 do
  begin
     if chto-to2 nado пропустить выполнение цикла с i

Как это сделать?

---

asdf   (2008-01-25 16:44:00) [1]

> Игорь Шевченко ©   (25.01.08 16:42) [3]

итерацию


> Kolan ©   (25.01.08 16:40) [2]

Спс всем, так и сделал

---

Игорь Шевченко   (2008-01-25 16:42:00) [2]

>     if chto-to2 nado пропустить выполнение цикла с i


выйти из цикла или пропустить итерацию ?

---

Kolan   (2008-01-25 16:40:00) [3]

Две процедуры выделить надо:

function SubCicle: Boolean;
begin
 for j := 0 to cnt2 do
 begin
    Result := chto-to2 nado пропустить выполнение цикла с i
 end;
end

procedure TopCicle;
begin
 for i := 0 to cnt do
 begin
   if chto-to and SubCicle then
     …    
end;

---

Семеныч   (2008-01-25 16:36:00) [4]


for i := 0 to cnt do
begin
 if chto-to
 begin
   for j := 0 to cnt2 do
   begin
     if chto-to2
       Break;
   end;
   if chto-to2
     Break;
 end;
end;


---

Наверх