OnExit Návěští

Příkazem OnExit je možné definovat místo od kterého bude program pokračovat v případě použití příkazu Exit.

Definici lze zrušit opět použitím příkazu OnExit s hodnotou návěští = 0.

Používá se v případě, kdy je potřeba aby byl definován jeden bod ukončení makra příkazem Exit.

Před skokem na návěst v příkazu Exit bude zadaná návěst nulována, takže následné použití příkazu Exit už bude pracovat standardně a makro se ukončí.

Návěst definovaná v příkazu OnExit má samozřejmě platnost omezenou pouze na to makro, kde byla použita.

Příklad:

OnExit LOnExit;
call Test;

LOnExit:
call Test1
Printup("LOnExit")
Exit

procedure Test
    dim a : Integer;
    a := 56;

    if(FTest()=0)then
    else
    endif

    return 
		
    function FTest
        dim b : Integer;
        b := 999;
        Exit
        return 0;
    endfunc
	
endproc { Test }

procedure Test1;
    dim a : Integer;
    a := 56;
    Exit
endproc { Test1; }