// Abre o arquivonHandle := FT_FUse("c:\garbage\test.txt")// Se houver erro de abertura abandona processamentoif nHandle = -1 returnendif// Posiciona na primeira linhaFT_FGoTop()// Retorna o número de linhas do arquivonLast := FT_FLastRec()MsgAlert( nLast )While !FT_FEOF() cLine := FT_FReadLn() // Retorna a linha corrente nRecno := FT_FRecno() // Retorna o recno da linha MsgAlert( "Linha: " + cLine + " - Recno: " + StrZero(nRecno,3) ) // Pula para próxima linha FT_FSKIP()End// Fecha o arquivoFT_FUSE()