Segun tengo entendido solo algunos Datasets tienen implementado el RecordCount, es más si miras la implementación de Recordcount en la clase Tdataset, verás que devuelve -1.
Entonces dependerá de qué tipo de tablas uses y de si implementa el recordcount o no.
Para subsanar el error, simplemente hazlo como te ha dicho
Marcos.
Cita:
pero el problema es con algo relacionado con el :current record
|
Asegurate de estar en un registro correcto. query.First, query.Last segun te convenga, justo antes del bucle while.
Advertencia: Si estas borrando registros, no uses query.Next, el método tabla.Delete ya actualiza la posición.
Saludos