Bucle For con Repeat.

[ramonibk]

Bueno veré si me puedo explicar con un ejemplo.

He utilizado tanto tu opción como la que yo estaba intentando pero en ningún caso me ha funcionado.


En un Formulario tengo dos botones un Edit, dos Label y un timer.

La intención es que el timer cuente hasta el valor que se coloca en el edit tantas veces como l indiquemos en el "for"

Código Delphi [-]

// N es una variable global.

procedure TForm1.Button1Click(Sender: TObject);
Var
 I, Nrep : Integer;
begin
  I := StrToInt(Edit1.Text); //Defino cuando se debe parar de contar.
  for Nrep := 0 to 5 do //Numero de veces que se realiza la operacion.
     Begin
      Timer1.Enabled := True;
       Begin
           Label2.Caption := 'En marcha';
       End;
      while N = I do
       Begin
        Timer1.Enabled := False;
        Label2.Caption := 'Parado';
        N := 0;
       End;
     End;
end;
// Empieza a contar y no para al llegar a N = I

procedure TForm1.Button2Click(Sender: TObject);
Var
 I, Nrep : Integer;

begin
  I := StrToInt(Edit1.Text);
  for Nrep := 0 to 5 do
     Begin
      Timer1.Enabled := True;
       Repeat
        Begin
           Label2.Caption := 'En marcha';
        End;
       Until N = I;
       Begin
        Timer1.Enabled := False;
        Label2.Caption := 'Parado';
        N := 0;
       End;
     End;
end;

// Deja la aplicación colgada, no hace nada.

procedure TForm1.FormCreate(Sender: TObject);
begin
 N:=0
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 N := N+1;
 Label1.Caption := IntToStr(N);
end;

espero haber explicado menos el tema.

Muchas gracias.

[bucanero]

hola!!

el problema que te surge es porque al activar el TIMER se inicia una especie de "ejecución en paralelo" sin llegar a ser un hilo como tal, y mientras en el hilo principal del programa entras en un bucle sin esperas y sin darle descanso a la CPU, a ejecutar el proceso del timer.

Esto lo puedes soluciona llamando a application.processmessages en el bucle de espera, pero el problema que te va a surgir es que si ejecutas el bucle muy rápido, llamando a processmessages continuamente sin esperas intermedias puedes llegara a saturar el S.O., Para evitar eso, te recomiendo que pongas además un sleep


Prueba con este código:

Código Delphi [-]
procedure TForm2.Button2Click(Sender: TObject);
var
  i, Nrep: Integer;
begin
  i := StrToInt(Edit1.Text);
  for Nrep := 0 to 5 do begin
    Label2.Caption := format('Ciclo #%d:', [Nrep]);
    Timer1.Enabled := True;
    N := 0;
    while (n < i) do begin
      application.processMessages;
      // entra en modo sleep y el S.O. cambia el foco de la CPU a otros procesos, evitando sobrecargar el sistema
      sleep(200);
    end;
    Timer1.Enabled := False;
  end;
  Label2.Caption := 'Parado';
end;

[ramonibk]

Hola Bucanero.

Muchas gracias me es de mucha utilidad.

un saludo.