SET Inichoice

• Propósito
• Sintaxe
• Argumentos
• Utilização
• Exemplo

Propósito

Indicar o primeiro elemento do vetor a ser exibido pela função ACHOICE( ).

Sintaxe

SET INICHOICE TO <exp.N>

Argumentos

<exp.N>

representa o indice - 1 do elemento do vetor a ser exibido .

Utilização

Possibilita a escolha do índice inicial do vetor a ser exibido. A posição inicial da barra continua sendo na primeira linha do ACHOICE, podendo ser alterada esta linha com o comando SET LINCHOICE TO <var> que indica a linha em que será exibido o elemento do vetor.

Exemplo

O exemplo a seguir mostra-nos o posicionamento da barra na escolha anterior.

PROG

a = 0

SET REVERSE ON

DECLARE VET_P1[3] = SPACE (10)

DECLARE VET_P2[3] = SPACE (10)

VET_P1 [1] = "PALAVRA 1"

VET_P1 [2] = "PALAVRA 2"

VET_P1 [3] = "PALAVRA 3"

VET_P2 [1] = "CONDICAO 1"

VET_P2 [2] = "CONDICAO 2"

VET_P2 [3] = "CONDICAO 3"

DO WHILE .T.

    a = ACHOICE(10,20,14,31, VET_P1)

    IF a = -1

      EXIT

    ENDIF

    DO WHILE .T.

       b = ACHOICE(15,20,19,31, VET_P2)

       IF b = -1

           EXIT

       ENDIF

    ENDDO

    SET INICHOICE TO a

ENDDO