Форум: "Начинающим";
Текущий архив: 2006.12.03;
Скачать: [xml.tar.bz2];
Вниз
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.047 c
