tdEOF

Aufbau

tdEOF(iDataSet)

Typ

Funktion

Beschreibung

Diese Funktion gibt „1“ oder „0“ zurück, je nachdem, ob sich der ausgewählte Datensatz am Dateiende (letzter Datensatz) befindet.

Parameter: 1

iDataSet=Nummer des Datensatzes, muss zwischen 1 und 10 liegen. IndySoft stellt 10 Datensätze zur Verfügung, auf die über benutzerdefinierte Skriptfunktionen vom Typ „td*“ zugegriffen werden kann.

Beispiel

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('Unternehmen: ' & sCompanyName & Chr(13) &

'Anzahl der Messgeräte: ' & IntToStr(iCount))

tdNext(1)

End While

End If |