Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!

EXIT

Propósito

Forçar a saída de um comando de repetição (laço).

Sintaxe

EXIT

Utilização

Quando for necessário encerrar um comando de repetição.

Provoca o desvio do fluxo do programa para o primeiro comando após o fim do laço.

Utilizado somente em conjunto com os comandos FOR ... NEXT e DO WHILE ... ENDDO. Quando executado, impõe a continuidade de execução do programa para o primeiro comando após o NEXT ou ENDDO.

Exemplo

O exemplo a seguir mostra como sair do laço FOR ... NEXT antes do comando, assim que i seja igual a 10.

FOR i = 1 TO 10000

  @ 10, 2 SAY""         && Posiciona o cursor.

  ? i                 && Exibe o valor da variável i

  IF i = 10

    EXIT

  ENDIF

  ? "Dentro do laço"         && Exibe o texto.

NEXT

CLEAR

O exemplo a seguir mostra uma forma de sair do LOOP infinito.

CLEAR

SET MESSAGE TO 23, 21

MESSAGE " Pressione S para sim ou N para não. "

DO WHILE .T.

  @ 1,2 SAY""         && Posiciona o cursor.

  WAIT "Deseja parar ? " TO resp

  IF resp $ "Ss"

    EXIT            && Força saída

  ENDIF

ENDDO

CLEAR MESSAGE

? "Fim do laço"

Consulte

DO WHILE, FOR ... NEXT, IF, LOOP, QUIT e RETURN.

Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!