Ver Mensaje Individual
  #2  
Antiguo 08-03-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 29.186
Reputación: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Primero de todo, ¡¡¡bienvenido!!!
Por favor, lee nuestra guía de estilo, gracias.
No olvides usar las etiquetas para código, ejemplo:



También, cuando vayas a preguntar algo, debes crear un hilo nuevo, no escribas cualquier cosa en cualquier hilo.
Solamente debes escribir en otros hilos para contestar a los que han iniciado el mismo.

Seguidamente, en tu código, seguramente debas cambiar:
Código Delphi [-]
for cont := 1 to Query6.RecordCount do
por
Código Delphi [-]
for cont := 0 to Query6.RecordCount -1 do

Aunque lo mejor es:
Código Delphi [-]
while not query.eof do

Además veo cosas raras en tu código, estás mezclando qconsr y query6. Supongo que te has despistado y has hecho un copia/pega mal.
O lo mismo no lo he llegado a entender bien.

Última edición por Casimiro Notevi fecha: 08-03-2019 a las 22:30:45.
Responder Con Cita