FALLO en CAERQUES

[[Lepe]]

Hasta ahora confiaba ciegamente en CAERQUES y no había verificado nada.... mal hecho por mi parte.

Acabo de comprobar como CAERQUES no borra los índices por un pequeño fallo en el código.
Esto se traduce en que nuestra aplicación, aún usando CAERQUES seguirá
dando el fallo de INDEX IS OUT OF DATE.

En la unidad Upripal.pas está la línea siguiente:

Código Delphi [-]
      memo1.lines.add('      Extensiones : array[1..3] of String = ('+chr(39)+'px'+chr(39)+', '+chr(39)+'x??+chr(39)+'', '+chr(39)+'y??+chr(39)+'');');

Nota: Recordemos que chr(39) es la comilla simple.

El código que usaremos en nuestra aplicación será:

Código Delphi [-]
Const
Extensiones : array[1..3] of String =  ('+chr(39)+'px'+chr(39)+','+chr(39)+'x??+chr(39)+'', '+chr(39)+'y??+chr(39)+'');');

Al usar las etiquetas delphi en los foros se puede apreciar claramente el fallo;
precisamente lo que se vé en color negro son las extensiones por las que va a buscar,
es decir si tenemos una tabla de nombre Clientes.DB, buscará :

Clientes.px
Clientes.x??+chr(39)+
Clientes.y??+chr(39)+

En realidad debe buscar:
Clientes.px
Clientes.x??
Clientes.y??

QUE FALLO TIENE:
Desfase de las comillas para las extensiones de tipo x??, y??

CORRECCIÓN DEL FALLO:
Abrir el proyecto CAERQUES.DPR en delphi.
Abrir la unidad Upripal.pas
Usar el menú de delphi Search --> Find
en la caja que sale escribimos: Extensiones
Pulsamos en Find y nos situará en la línea que tiene el error:

Borramos la linea al completo y ponemos esta:

Código Delphi [-]
      memo1.lines.add('      Extensiones : array[1..3] of String = ('+chr(39)+'px'+chr(39)+', '+chr(39)+'x??'+chr(39)+', '+chr(39)+'y??'+chr(39)+');');

Ahora recompilamos caerques.dpr y listo, ya podemos usarlo.

PD: perdón por el scroll horizontal, pero es mejor así para copiar la linea correcta a delphi.

Un saludo