Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #9  
Antiguo 31-03-2004
Majo Majo is offline
Miembro
 
Registrado: jun 2003
Posts: 43
Poder: 0
Majo Va por buen camino
Cool

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;
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 16:29:03.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi