Ver Mensaje Individual
  #20  
Antiguo 22-11-2017
jhonalone jhonalone is offline
Miembro
 
Registrado: sep 2007
Ubicación: Madrid
Posts: 549
Reputación: 18
jhonalone Va por buen camino
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.
__________________
"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