While Loop

Samucha

Hi' All

How to  exit  while loop and continue next command ?

Example    

    VAR num sum;

    PROC testwhile()

        WHILE TRUE DO

            Incr sum;

            IF sum = 10 THEN
                TPWrite "Sum :" \Num:= sum;

                ! ----------  Exit while loop and continue command

            ENDIF 

        ENDWHILE

    ENDPROC

PROC summ()
    testwhile;
   TPWrite "Exit loop while";
ENDPROC

Thanks for help.

Pavel Riabichev

Hello
There is no break command but you could set a condition for the while loop like WHILE  NOT sum = 10 THEN
/Pavel

PerSvensson

Something like this

    VAR num sum;
    VAR bool bExit:=FALSE;

    PROC testwhile()

        WHILE NOT bExit DO

            Incr sum;

            IF sum = 10 THEN
                TPWrite "Sum :" \Num:= sum;
                bExit:=TRUE;

                ! ----------  Exit while loop and continue command

            ENDIF 

        ENDWHILE

    ENDPROC

PROC summ()
    testwhile;
   TPWrite "Exit loop while";
ENDPROC

Samucha

Hi,All

Thanks for help.