Continue to end of loop

Fommo

Hi there

Is there some nice way to accomplish the following:

WHILE (some condition) THEN BEGIN
  statement1
  IF NOT (statement1 = success) THEN
    Continue to next turn in the loop
  statement2
  IF NOT (statement2 = success) THEN
    Continue to next turn in the loop
  ... And so on ...
END;

That is some kind of "goto end of loop" or "continue to next turn" functionality. IF I would use IF - ELSE IF - ELSE IF it would be such a nasty tree of ugly indentations and after a while it will BEEP as the lines can't go over the right margin.

McClane

A case-Construct?

while SomeCondition
  case true of
    Condition1: begin .. end;
    Condition2: begin .. end;
    .
    .
    .
    else begin .. end;
  end;

Is that what you´re looking for?

kriki

WHILE (some condition) DO BEGIN
  blnContinueWithStatements := Statement1(); 
  IF blnContinueWithStatements then
    blnContinueWithStatements := Statement2(); 
  IF blnContinueWithStatements then
    blnContinueWithStatements := Statement3(); 
  ...
END;

Remark:
Each statement must return a boolean.
TRUE : if the code must continue with the statements
FALSE: if the code must skip the next statements and continue with the loop.

Fommo

kriki wrote:

WHILE (some condition) DO BEGIN
  blnContinueWithStatements := Statement1(); 
  IF blnContinueWithStatements then
    blnContinueWithStatements := Statement2(); 
  IF blnContinueWithStatements then
    blnContinueWithStatements := Statement3(); 
  ...
END;

Remark:
Each statement must return a boolean.
TRUE : if the code must continue with the statements
FALSE: if the code must skip the next statements and continue with the loop.

Quite a good idea, actually. Thanks a lot Kriki! =D>

kriki

[Topic moved from 'NAV/Navision' forum to 'NAV Tips & Tricks' forum]

Ninlil

WHILE SomeCondition DO BEGIN
  CASE TRUE OF
    Statement1:;
    Statement2:;
    Statement3:;
    Statement4:;
    Statement5:;
  END;
END;

All "Statement#"-function must return a Boolean.
In each round, they are called from top to bottom until someone returns TRUE, then the CASE-statment is "solved" and the rest of the "Statements" are ignored.
This one is probably the shortest, althou maybe not the easiest to understand for a beginner.