LASTKEY()
 Retorna o valor INKEY() da última tecla extraída do buffer de teclado
------------------------------------------------------------------------------

 Sintaxe

     LASTKEY() --> nCodInkey

 Retorno

     LASTKEY() retorna um número de -39 a 386 que identifica o valor INKEY()
     da última tecla extraída do buffer de teclado.

 Descriçao

     LASTKEY() é uma funçao de tratamento de teclado que informa o valor
     INKEY() da última tecla capturada do buffer de teclado pela funçao
     INKEY(), ou por um estado de espera como ACCEPT, INPUT, READ, WAIT,
     ACHOICE(), DBEDIT(), ou MEMOEDIT().  LASTKEY() retém seu valor corrente
     até que outra tecla seja capturada do buffer de teclado.

     Em aplicaçoes, LASTKEY() tem uma série de usos, entre os quais:

       Determinar a tecla utilizada para terminar um READ

       Determinar a tecla utilizada para sair do objeto GET corrente
        em uma funçao de usuário invocada por uma cláusula VALID

       Identificar uma tecla de exceçao na funçao de usuário de
        ACHOICE(), DBEDIT(), ou MEMOEDIT()

     LASTKEY() também é utilizada com UPDATED() para determinar se algum
     buffer de objeto GET foi alterado durante um READ.

     LASTKEY() é relacionada a NEXTKEY() e READKEY().  NEXTKEY() lê a tecla
     corrente pendente no buffer de teclado sem removê-la.  NEXTKEY() é
     utilizada em lugar de INKEY() para receber uma tecla.

     Para uma lista completa de códigos INKEY() e constantes Inkey.ch para
     cada tecla, consulte o Apêndice C deste livro.

 Exemplos

     Este exemplo ilustra uma aplicaçao típica de LASTKEY() para testar a
     tecla usada para sair de um comando READ.  Se o usuário sair com
     qualquer outra tecla que nao for Esc e um GET tenha sido alterado, o
     arquivo de banco de dados especificado é atualizado:

     #include "Inkey.ch"
     //
     USE Customer NEW
     MEMVAR->balance = Customer->Balance
     @ 10, 10 SAY "Saldo Atual:" GET MEMVAR->balance
     READ
     //
     IF (LASTKEY() != K_ESC) .AND. UPDATED()
        REPLACE Customer->Balance WITH MEMVAR->balance
     ENDIF

 Arquivos:  Biblioteca CLIPPER.LIB, arquivo header Inkey.ch.
 To download this example - click here.

See Also: CHR() INKEY() NEXTKEY() KEYBOARD Códigos INKEY()