Funcion ORD en Delphi 7 devuelve valor diferente que en Delphi 11 Alexandria

[Matorral]

Buenos dias¡¡

Siento haber tardado tanto en responder, no pude hacerlo antes.

Empezado por pgranados

Hola, acabo de hacer la prueba en Delphi 10.4 y obtengo el mismo resultado con ambas funciones: 1414835712

Te recomendaria poner un stop en Delphi 11 para ver en donde esta cambiando el valor.

Gracias por responder pgranados.


El valor esta cambiando en esta línea, al introducir el cuarto dígito ('1111').

Código Delphi [-]
     j:=j*7;

Y creo que el problema es que en Delphi 7 utilizo variables tipo integer y en Delphi 11 variables int64 (en Delphi 11 no puedo declarar la variable "j" como integer o como LongInt porque salta un error al introducir el cuarto dígito (el cuarto '1') :

"Integer overflow".

Empezado por pgranados

Aunque otra alternativa seria que hagas una DLL en Delphi 7 y la consumas desde Delphi 11

También probé a hacer la dll en Delphi 7 y consumirla desde Delphi 11 y dan valores diferentes.


La "putada" es que el valor de la función Codifica() lo guardo en el registro de cada usuario. Al entrar en la aplicación pido el pin, lo codifico y hago una búsqueda del valor devuelto por Codifica() para identificar al usuario.
Al ejecutar la aplicación compilada con Delphi 11 no localiza el pin codificado.

En fin, seguiré buscando una solución a esto porque necesito mantener la Codificación antigua del pin (Delphi 7) en la aplicación actualizada a Delphi 11.

Gracias pgranados¡¡