Akcia BEGIN


Deklarácia
BEGIN

Popis
Akcia explicitne uvádza inicializačnú časť skriptu.
Poznámka
Implicitné uvedenie inicializačnej časti skriptu predstavuje ľubovoľná akcia mimo:
  • začiatku a konca procedúry,
  • deklarácie lokálnej premennej,
  • inej ľubovoľnej akcie v rámci procedúry.
Bližšie pozri: Štruktúra skriptu.
Príklady
Explicitné uvedenie inicializačnej časti – na konci skriptu
 
 ;deklarácia lokálnej premennej
 INT _i
 ;deklarácia procedúry
 PROCEDURE Procedura
  _i := _i + 1
 END Procedura
 ;inicializačná časť - explicitne uvedená
 BEGIN
  DELAY _i[s]
  CALL Procedura
  MESSAGE %IToStr(_i) ON srvskol1v.hip 
 END 

 
Implicitné uvedenie inicializačnej časti – na konci skriptu
 
 ;deklarácia lokálnej premennej
 INT _i
 ;deklarácia procedúry
 PROCEDURE Procedura
  _i := _i + 1
 END Procedura
 ;inicializačná časť - implicitne uvedená akciou, ktorá nie je deklaráciou 
 ;premennej, procedúry a ani jej časťou
 DELAY _i[s]
 CALL Procedura
 MESSAGE %IToStr(_i) ON srvskol1v.hip
 ;koniec skriptu = koniec inicializačnej časti
 

 
Explicitné uvedenie inicializačnej časti – pred deklaráciou procedúry
 
 ;deklaracia lokalnej premennej
 INT _i
 ;inicializačná časť - explicitne uvedená
 BEGIN
  DELAY _i[s]
  CALL Procedura
  MESSAGE %IToStr(_i) ON srvskol1v.hip 
 END
 ;deklarácia procedúry za inicializačnou časťou
 ;vyhodnotené ako pokus o deklaráciu vnorenej procedúry
 ;skončí chybou pri kompilácií
 PROCEDURE Procedura
  _i := _i + 1
 END Procedura 

 
Implicitné uvedenie inicializačnej časti – pred deklaráciou procedúry
 
 ;deklarácia lokálnej premennej
 INT _i
 ;inicializačná časť - implicitne uvedená akciou, ktorá nie je deklaráciou 
 ;premennej, procedúry a ani jej časťou
 DELAY _i[s]
 CALL Procedura
 MESSAGE %IToStr(_i) ON srvskol1v.hip
 ;deklarácia procedúry - skončí chybou, pretože je vo vnútri 
 ;inicializačnej časti (vnorená deklarácia)
 PROCEDURE Procedura
  _i := _i + 1
 END Procedura
 ;koniec skriptu = koniec inicializačnej časti 

 
Vnorená inicializačná časť
 
 ;inicializačná časť - explicitne uvedená
  BEGIN
  INT _a
  _a := _a + 1
  _b := _b + 1
 ;vnorená inicializačná časť - nie je možné urobiť
  BEGIN
   INT _b
   _b := 8
   _a := _a + _b
  END
 MESSAGE "_a = " + %IToStr(_a) ON srvskol1v.hip
 MESSAGE "_b = " + %IToStr(_b) ON srvskol1v.hip
 END 


Súvisiace stránky:

0 komentárov

Nie ste prihlásený. Akékoľvek zmeny, ktoré vykonáte, sa označia ako anonymné. Ak už máte svoj účet, pravdepodobne sa budete chcieť prihlásiť .