Como parar un programa en ejecucion???

[damian2000]

Hola, mi problema es que tengo un programa que realiza unas operaciones muy lentas dependiendo del tamaño de matrices que meta, vamos que cuando esta el programa calculando puede tirarse varios minutos ya que son varios bucles for anidados, la cosa es que me gustaria poder poner un boton del tipo cancelar, que pueda interrumpir la operacion en cualquier momento, esto siempre lo he hecho en c++ con la funcion kbhit() dentro de un while, pero aqui no veo la forma, y es que me da la impresion de que el programa se queda ahi calculando y no me deja dar ni al boton salir, alguna sugerencia?, gracias y salu2.

[[eduarcol]]

Puedes colocar una variable de tipo flag que se active al presionar el boton salir, y en cada bucle del for mas interno validas si se activo si se activo paras el bucle y listo, yo lo haria asi no se si exista el equivalente a esa instruccion

[__cadetill]

hola

Pues en Delphi has de hacerlo más o menos de la siguiente manera:

Código Delphi [-]
var
  Salir: boolean; // variable global al formulario

implementation

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  Salir := false;
  for i := 0 to 100000 do
  begin
    if Salir then Break;
    Application.ProcessMessages;
  end;
end;

procedure TForm1.SalirBucleClick(Sender: TObject);
begin
  Salir := true;
end;

Mas o menos

Espero te sirva

[roman]

Además de lo que dice eduarcol habrá que agregar un Application.ProcessMessages en algún punto de cada ciclo para que se pueda procesar el click del botón.

// Saludos

[[eduarcol]]

Empezado por cadetill

hola

Pues en Delphi has de hacerlo más o menos de la siguiente manera:

Código Delphi [-]
var
  Salir: boolean; // variable global al formulario  = declarar una variable flag

Código Delphi [-]
procedure TForm1.SalirBucleClick(Sender: TObject);
begin
  Salir := true; //activarla al presionar 
end;

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  Salir := false;
  for i := 0 to 100000 do
  begin
    if Salir then Break; //Al final del ciclo mas interno si se activo salir del ciclo
    Application.ProcessMessages; 
  end;
end;

Mas o menos

Espero te sirva

Gracias a Cadetill por la explicacion grafica

[damian2000]

Muchas gracias por contestar tan rapido, de la forma que decis eduarcol y cadetill, ya lo hice, pero sin resultado, ya que como dije se queda como pillado y no me deja pulsar el boton, probare lo que dice roman, muchas gracias a todos, salu2

[[eduarcol]]

A lo que se refiere Roman

Empezado por cadetill

Código Delphi [-]
for i := 0 to 100000 do
  begin
    if Salir then Break;
    Application.ProcessMessages; //Creo que a esto se refiere Roman
  end;
end;

[Amilius]

Empezado por damian2000

Muchas gracias por contestar tan rapido, de la forma que decis eduarcol y cadetill, ya lo hice, pero sin resultado, ya que como dije se queda como pillado y no me deja pulsar el boton, probare lo que dice roman, muchas gracias a todos, salu2

El ejemplo funciona a la perfección.

¿Tal vez el problema es el lugar donde ubicaste la llamada a procesar mensajes? Mejor si te asegures que se lo llame alrededor de unas 4 a 8 veces por segundo. Ni muy seguido en lo posible ni tan poco frecuente que aún tengas que esperar un rato hasta que se procesen los mensajes.

[damian2000]

Pues ya me va perfectamente con el ejemplo que me habeis puesto, muchas gracias de new, salu2