Función desde ActionScrip2 a Delphi

[[maeyanes]]

Hola...

Me imagino que te refieres a esta parte:

Código Delphi [-]
    if FCt2 < 0 then
    begin
      for I := 81 to 162 do
        FSudoku := FSudoku + IntToStr(Q[FCt][i]);
      Break
    end;

Es un pequeño error, en realidad el ciclo for debería ir de 81 a 161... la posición 162 en la lista Q[FCt] guarda el valor de un índice y este al final del proceso tiene como valor -1, por lo cual no debería agregarse a la cadena de la solución.


Saludos...

[jhonalone]

¡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.

[[maeyanes]]

Hola...

Sin saber exactamente cual es el error que te reporta Delphi, y leyendo lo de los strings en Android, puedo "adivinar" que el error en Cons(Q[0]); se produce a causa del procedimiento SplitStrToIntList en la unidad SudokuUtils.pas:

Código Delphi [-]
function SplitStrToIntList(const Str: string): TList<Integer>;
var
  I: Integer;

begin
  Result := TList<Integer>.Create;
  if Str = '' then
    Result.Add(-1)
  else
    for I := 1 to Length(Str) do // <--- string basado en índice 1, no 0 como Android...
      Result.Add(StrToInt(Str[i]))
end;

Saludos...

[jhonalone]

Hola maeyanes.

El error es: " in not a valid integer value

Gracias por estar ahí.

Compruebo lo que me has comentado.

Saludos.

[jhonalone]

Hola maeyanes.
Toda la razón en SplitStrToIntList .
Hemos eliminado el error " is...
Ahora tendré que volver a Solve, pues se queda enganchado en un bucle y creo que es alli.
Saludos.

[jhonalone]

Hola maeyanes.
Toda la razón en SplitStrToIntList .
Hemos eliminado el error " is...
Ahora tendré que volver a Solve, pues se queda enganchado en un bucle y creo que es alli.
Saludos.

[jhonalone]

Todo Perfecto, maeyanes.

Estaba cometiendo yo un error. No había tenido en cuenta otra peculiaridad de Android. Sabemos que Windows realiza las instrucciones secuencialmente, pero Android tiene una peculiaridad: los procedimientos los termina completos. Me explico, yo estaba utilizando en mi aplicación de prueba el procedimiento siguiente:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
   Resol : TS;
begin
Resol := TS.Create;
Resol.Solve(Label1.Text);
Label2.Text := Resol.Sudoku;
Resol.Destroy;

Como Android realiza todas las instrucciones del procedimiento en bloque, destruía la clase Resol antes de pasar los valores a Label1.Text y se quedaba colgado el programa.

De esta forma:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
   Resol : TS;
begin
Resol := TS.Create;
Resol.Solve(Label1.Text);
Label2.Text := Resol.Sudoku;
//Resol.Destroy;

Todo funciona perfecto.
Millones de gracias por tu ayuda. Un saludo muy afectuoso.

[[maeyanes]]

Hola...

Vaya extraño comportamiento el de Android...

Que bueno que ya quedó...


Saludos...