Текущий архив: 2006.12.03;
Скачать: CL | DM;

Вниз

Continue, вложенный цикл.   Найти похожие ветки 

← →
Wood   (2006-11-14 06:08) [0]

Доброе утро!
Подскажите, плз, как продолжить вложенный цикл?
Такая конструкция у меня продолжила основной цикл:

While not <таблица>.Eof do
begin
 If <условие> then Continue;
 ...
  For i:=0 to Count do
   begin
     If <условие> then Continue; //выходит из цикла for и продолжает while
     ...
   end;
  <таблица>.Next
end;

возможно, я ошибаюсь, думая, что каждое Continue действительно для конкретного цикла...

---

← →
MBo ©   (2006-11-14 06:43) [1]

Все работает как положено:


procedure TForm14.Button1Click(Sender: TObject);
var
 i, j: Integer;
begin
 i := 0;
 while i < 3 do begin
   Memo1.Lines.Add(Format("Start Outer %d",[i]));
   if i = 1 then begin
     Inc(i);
     Continue;
   end;
   Memo1.Lines.Add(Format("Outer %d After Continue",[i]));
   for j := 10 to 12 do begin
     if j = 11 then
       Continue;
     Memo1.Lines.Add(Format("Outer %d   Inner %d",[i,j]));
   end;
   Memo1.Lines.Add(Format("Outer %d After Inner Cycle",[i]));
   Inc(i);
 end;


Start Outer 0
Outer 0 After Continue
Outer 0   Inner 10
Outer 0   Inner 12
Outer 0 After Inner Cycle
Start Outer 1
Start Outer 2
Outer 2 After Continue
Outer 2   Inner 10
Outer 2   Inner 12
Outer 2 After Inner Cycle

---

← →
MikePetrichenko ©   (2006-11-14 06:48) [2]

> If <условие> then Continue; //выходит из цикла for и продолжает
> while

А с чего бы оно выходит из цикла?
Continue + F1
Exit + F1
И будет счастье

---

← →
MikePetrichenko ©   (2006-11-14 06:49) [3]

Сорри. Не Exit, а, конечно же, Break+F1.
Спать охота. Чем и займусь...

---

← →
Wood   (2006-11-14 07:00) [4]

> MBo ©   (14.11.06 06:43) [1]

благодарю! Буду искать ошибку в своем коде.
PS: напомните, плз, где я могу посмотреть такое же:

>Start Outer 0
>Outer 0 After Continue
>Outer 0   Inner 10
...


> MikePetrichenko ©   (14.11.06 06:48) [2]
...
> Continue + F1

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

---

← →
Wood   (2006-11-14 07:08) [5]

тьфу, ну точно не доброе утро попалось :( Совсем не проснулся, MBo ©, прошу прощения за PS...

---

Страницы: 1 вся ветка

Текущий архив: 2006.12.03;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.083 c