¡Perfecto! maeyanes
Esa era la causa.
Como te dije estoy intentando adaptarlo a FMX (Android).
El generador, únicamente cambiando la localización de "data.txt", funciona correctamente.
En cambio, el solucionador me está dando problemas.
El primero era en el procedure "Solve". Consistía en que la function "
Solver" me daba un error de "
Arguments out of range", he supuesto que podía deberse a que las Strings en FMX comienzan por Cero y he modificado lo siguiente:
Código Delphi
[-]
for I := 1 to Length(ASudoku) do
if CharInSet(ASudoku[i], ['1'..'9']) then
SetValue(I - 1, ASudoku[i], S);
if Solver(S)...........
Cambiándolo por esto:
Código Delphi
[-]
for I := 0 to Length(ASudoku) -1 do
if CharInSet(ASudoku[i], ['1'..'9']) then
SetValue(I , (ASudoku.Substring(I,1).ToInteger), S);
if Solver(S).........
Ahora la function "
Solver" ya devuelve
TRUE, pero el procedure "
Solve" ahora me está dando error en
Estoy peleando con ello hace 2 días.
Si tú sabes porqué y, (abusando de tu generosidad), me sacas de dudas te estaré todavía más agradecido (si es que fuera posible).
En cualquier caso, infinitas gracias y un saludo muy afectuoso.