Cita:
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
Código:
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;