Árvore de páginas

Informa se está no fim do Arquivo/Tabela.

Sintaxe

Eof()

Retorno

Nome

Tipo

Descrição

lRet

lógico

Retorna .T. (Verdadeiro) se estiver no fim do arquivo/tabela; Caso contrário, .F. (Falso)

Observações

  • O uso da DBGoBottom não ativa a flag de EOF. Para isto, após sua chamada, é necessário o uso da DBSkip.
  • Após abertura de uma tabela, caso nenhum registro tenha sido inserido, a flag de EOF sempre será True (.T.).

Exemplos

static function CreateTable()
  TCDelFile('T1')
  
  DBCreate('T1', {{"FIELD_NAME", "C", 10, 0}, ;
                  {"FIELD_TYPE"   , "C", 10, 0}}, 'TOPCONN')
RETURN

user function test()
  Local cT1 := "T1"
  
  TCLink()
  
  CreateTable()

  DBUseArea(.F., 'TOPCONN', cT1, (cT1), .F., .F.)
  
  (cT1)->( DBAppend( .F. ) )
  (cT1)->FIELD_NAME := "name"
  (cT1)->FIELD_TYPE := "string"
  (cT1)->( DBCommit() )
  
  (cT1)->( DBAppend( .F. ) )
  (cT1)->FIELD_NAME := "name2"
  (cT1)->FIELD_TYPE := "string"
  (cT1)->( DBCommit() )
  
  (cT1)->( DBAppend( .F. ) )
  (cT1)->FIELD_NAME := "name3"
  (cT1)->FIELD_TYPE := "string"
  (cT1)->( DBCommit() )
  
  DBGoBottom()
  DBSkip()
  
  if Eof() == .T.
    conout("Fim da Tabela/Arquivo")
  endif
 
  DBCloseArea()
  
  TCUnlink()
return

Veja também


  • Sem rótulos