Ver Mensaje Individual
  #15  
Antiguo 21-11-2017
jhonalone jhonalone is offline
Miembro
 
Registrado: sep 2007
Ubicación: Madrid
Posts: 545
Reputación: 17
jhonalone Va por buen camino
¡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
Código Delphi [-]
Cons(Q[0]);

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.
__________________
"Pedid y se os dará; buscad y hallaréis ..." (Lc 11,9-10)
"...si no tengo caridad, nada soy..." (1 Cor 13,1-13)
Responder Con Cita