tdEOF

Estrutura

tdEOF(iDataSet)

Tipo

Função

Descrição

Esta função devolverá «1» ou «0», consoante o conjunto de dados selecionado se encontre no fim do ficheiro (último registo).

Parâmetros: 1

iDataSet = número do conjunto de dados; deve ser um número entre 1 e 10. A IndySoft disponibiliza 10 conjuntos de dados que podem ser acedidos através das funções de script personalizadas «td*».

Exemplo

if tdDoSQLRecords(1, 'SELECT COMPANY_NAME FROM COMPANY ORDER BY COMPANY_NAME') then

tdFirst(1)

while (tdEOF(1) = '0')

sCompanyName = tdFieldbyNameAsString(1, 'COMPANY_NAME')

iCount = 0

if tdDoSQLRecords(2, 'SELECT COUNT(*) AS COUNTER FROM GAGES WHERE COMPANY = '' & sCompanyName & ''') then

iCount = tdFieldbyNameAsInteger(2, 'COUNTER')

End If

ShowMessage('Empresa: ' & sCompanyName & Chr(13) &

'Contagem de medidores: ' & IntToStr(iCount))

tdNext(1)

End While

End If |