Interrumpir un for

[roman]

¿Qué no basta mostrar el formulario del memo con ShowModal? Juaría que con esto, sin continue ni ProcessMessages bastaría.



// Saludos

[roman]

Te me adelantaste cadetill. Pero reitero lo dicho. No considero necesario ProcessMessages. Dicha línea no se ejecutará mientras esté desplegada la ventana modal. Y en el supuesto de que se ejecutara querría decir que el ciclo sigue corriendo mientras se muestra en lugar de pausarse como se requiere.

// Saludos

[__cadetill]

Empezado por roman

Te me adelantaste cadetill. Pero reitero lo dicho. No considero necesario ProcessMessages. Dicha línea no se ejecutará mientras esté desplegada la ventana modal. Y en el supuesto de que se ejecutara querría decir que el ciclo sigue corriendo mientras se muestra en lugar de pausarse como se requiere.

Es que no se exactamente lo que quiere conseguir Majo. No se si es lo que tu dices (mostrar otro formulario, con lo cual, tendrías razón) o simplemente dar al usuario la posibilidad de cancelar (acabar) el bucle en cualquier momento

[Majo]

Empezado por cadetill

Es que no se exactamente lo que quiere conseguir Majo.

Lo que realmente necesito es pausar el ciclo no salirme de él... para salirme de él creo que basta con Break. Al referirme a pausar, quiero decir que "pare" en cierta linea, para mostrar ciertos datos (POr ejemplo en memobox) y luego dado cierto evento, por ejemplo el click en un botón continue conla lineas del ciclo.

el código es el que sigue

Convergencia:=False;
while not Convergencia do
begin
    Picalc:=PCalculado(Vi,Di,Y);
    Qicalc:=QCalculado(Vi,Di,Y);
    Pprog:=PProgramada();
    Qprog:=QProgramada();
    DPi:=DP(Picalc,Pprog);
    DQi:=DQ(Qicalc,Qprog);
    DPi:=DividirPorVoltajes(DPi,Vi);
    DQi:=DividirPorVoltajes(DQi,Vi);
    
    HallarSubmatricesHNJL(H,N,J,L,Picalc,Qicalc,Vi,Di,Y);
    SetLength(L,NroDeBarras-1-Ng,NroDeBarras-1-Ng);

    VectorDP:=VectorColumna(DPi,VectorVacio);
    VectorDQ:=VectorColumna(DQi,VectorVacio);
    
    {Acá se debe mostrar una form que posee un memobox y un botón. En     
     el memobox se imprimen los vectores "VectorDP y Vector DQ. es en este 
     linea que quiero que el ciclo se pause y que solo continue cuando se de
     click sobre el boton aceptar. el problema que tengo es que la form se 
      muestra pero el ciclo no se detiene y sigue ejecutándose hasta que
      termina}

    Plasd:=Plasd+1;
    VectorDeltaD:=MultiplicarMatrices(InvMatReal(H),VectorDP);
    VectorDeltaV:=MultiplicarMatrices(InvMatReal(L),VectorDQ);


    if not convergencia then
        begin
         ActualizarV(Vi,VectorDeltaV);
         ActualizarD(Di,VectorDeltaD);
        end;
  end;

[roman]

Pues no hay ningún problema. Simplemente muestra el form con ShowModal. Probablemente lo intentas mostrar con Show lo cual, efectivamente, no detendrá el ciclo pero ShowModal sí. Por ejemplo, en este ciclo

var
  I: Integer;

begin
  for I := 0 to 10000 do
  begin
    Caption := IntToStr(I);
    if I = 5000 then Form2.ShowModal;
  end;

verás que la ejecución se detiene en 5000 y no se reanuda sino hasta que cierras Form2.

// Saludos

[Majo]

Gracias Roman "ShowModal" era precisamente lo que necesitaba.

Gracias al foro por su colaboración.... En cada una de las respuestas aprendemos algo nuevo