Akcia DO_LOOP, EXIT_LOOP, END_LOOP

Funkcia

Pomocou akcií je možné implementovať cyklus.

Deklarácia

[FOR  _ctrlVar [RANGE struct | = lBoundExpr TO uBoundExpr] ] DO_LOOP
 
 ...; akcie 1
 
 [EXIT_LOOP [expression]]
 
 ...; akcie 2
 
 [EXIT_LOOP [expression]]
 
 ...; akcie 3
 
 END_LOOP

Parametre

expression

in

Výraz typu Bool.

Popis

Cyklus má dva varianty:

Cyklus s riadiacou premennou.
Na začiatku cyklu je riadiaca premenná nastavená na hodnotu 1 (variant s kľúčovým slovom RANGE) alebo na hodnotu danú výrazom lBoundExpr. Hodnota výrazu musí byť platná. Taktiež sa jedenkrát vyhodnotí horné obmedzenie pre hodnotu riadiacej premennej.
V prvom prípade (variant RANGE) je to rozmer danej štruktúry (struct\DIM).
V druhom prípade je horné obmedzenie získané vyhodnotením výrazu uBoundExpr. Hodnota výrazu musí byť platná. Riadiaca premenná cyklu bude pri jednotlivých iteráciách automaticky postupne zvyšovaná až po horné obmedzenie. Riadiaca premenná musí byť deklarovaná typu INT. V tele cyklu je možné ju meniť. Prípadné zneplatnenie jej hodnoty spôsobí chybu za behu pri vykonávaní akcie END_LOOP. Cyklus je možné predčasne ukončiť akciou EXIT_LOOP.
Po ukončení cyklu má riadiaca premenná hodnotu o 1 väčšiu ako horné obmedzenie.

INT _i INT _uBound _uBound := 10 FOR _i=2 TO _uBound DO_LOOP _uBound := _uBound + 1 ; zmena hodnoty nemá vplyv na počet iterácií END_LOOP ; hodnota premennej _i je 11
INT _i RECORD (SD.ArchVal) _struct REDIM _struct[10] FOR _i RANGE _struct DO_LOOP REDIM _struct[2] ; zmena rozmeru nemá vplyv na počet iterácií END_LOOP ; hodnota premennej _i je 11
Cyklus bez riadiacej premennej.
Akcie uzavreté medzi akcie DO_LOOP a END_LOOP budú cyklicky vykonávané. Ukončiť cyklus je možné akciou EXIT_LOOP. Ak je akcia s parametrom, cyklus bude ukončený ak expression nadobudne hodnotu @TRUE.

INT _i _i := 1 DO_LOOP EXIT_LOOP _i = 10 _i := _i + 1 END_LOOP

Ekvivalentný zápis bez podmieneného ukončenia cyklu:

INT _i _i := 1 DO_LOOP IF _i = 10 THEN EXIT_LOOP ENDIF _i := _i + 1 END_LOOP

Poznámka

Chybný zápis cyklu nastane, ak je jeho začiatok a koniec "prekrížený" s akciou IF THEN.

Napríklad:

 INT _i
 _i := 1
 
 IF Sec = 1 THEN
   DO_LOOP
 ENDIF
   EXIT_LOOP _i = 10
   _i := _i + 1
 END_LOOP

alebo

 INT _i
 
 _i := 1
 DO_LOOP
   IF _i = 10 THEN
     EXIT_LOOP
   ENDIF
   _i := _i + 1
 IF Sec = 1 THEN
     _i := _i + 1
   END_LOOP
 ELSE
   END_LOOP
 ENDIF

Súvisiace stránky:

Akcie v skriptoch