parar bucle

[vtdeleon]

Saludos

Creo que un Break puede solucionar eso.

Hice una prueba

Código Delphi [-]
var
  Flag:Boolean;
  n:integer;
begin
  n:=0;
  Flag:=True;
  Flag2:=False;//Variable Global
  while Flag do begin
    Application.ProcessMessages;
    Inc(n);
    Label2.Caption:=IntToStr(n);
    if Flag2 then//Se de asigna True en otra rutina
      break;
  end;

end;

[Neftali [Germán.Estévez]]

Código Delphi [-]
  while Flag do begin
    Application.ProcessMessages;
    Inc(n);
    Label2.Caption:=IntToStr(n);
    if Flag2 then//Se de asigna True en otra rutina
      break;
  end;

Creo que son equivalentes.

Código Delphi [-]
  while Flag and (not Flag2) do begin
    Application.ProcessMessages;
    Inc(n);
    Label2.Caption:=IntToStr(n);
  end;

[vtdeleon]

Empezado por neftali

Creo que son equivalentes.

It's true.

Saludos

[FunBit]

Cosgaya si nos comentas el objetivo del búcle quizas podamos encontrar una alternativa...

Saludos!

[Cosgaya]

el objetivo para el bucle es un generador de contraseñas:
este es el codigo:

Código Delphi [-]
var
flag :boolean;
procedure TForm1.Button1Click(Sender: TObject);
var
pass: Array of String;
num1:integer;
num2:integer;
num3:integer;
num4:integer;
num5:integer;
num6:integer;
num7:integer;
num8:integer;
begin
setlength(pass, 64);
pass[0]:='a';
pass[1]:='b';
pass[2]:='c';
pass[3]:='d';
pass[4]:='e';
pass[5]:='f';
pass[6]:='g';
pass[7]:='h';
pass[8]:='i';
pass[9]:='j';
pass[10]:='k';
pass[11]:='l';
pass[12]:='m';
pass[13]:='n';
pass[14]:='ñ';
pass[15]:='o';
pass[16]:='p';
pass[17]:='q';
pass[18]:='r';
pass[19]:='s';
pass[20]:='t';
pass[21]:='u';
pass[22]:='v';
pass[23]:='w';
pass[24]:='x';
pass[25]:='y';
pass[26]:='z';
pass[27]:='A';
pass[28]:='B';
pass[29]:='C';
pass[30]:='D';
pass[31]:='E';
pass[32]:='F';
pass[33]:='G';
pass[34]:='H';
pass[35]:='I';
pass[36]:='J';
pass[37]:='K';
pass[38]:='L';
pass[39]:='M';
pass[40]:='N';
pass[41]:='Ñ';
pass[42]:='O';
pass[43]:='P';
pass[44]:='Q';
pass[45]:='R';
pass[46]:='S';
pass[47]:='T';
pass[48]:='U';
pass[49]:='V';
pass[50]:='W';
pass[51]:='X';
pass[52]:='Y';
pass[53]:='Z';
pass[54]:='0';
pass[55]:='1';
pass[56]:='2';
pass[57]:='3';
pass[58]:='4';
pass[59]:='5';
pass[60]:='6';
pass[61]:='7';
pass[62]:='8';
pass[63]:='9';
num1:=0;
num2:=0;
num3:=0;
num4:=0;
num5:=0;
num6:=0;
flag := false;
while (num1 <=63) and (not flag)do
begin
memo1.lines.add(pass[num1]+pass[num2]+pass[num3]+pass[num4]+pass[num5]+pass[num6]);
num6 := num6 +1;
  if num6 =64 then
  begin
  num6:=0;
  num5 := num5 +1;
  end;
  if num5 =64 then
  begin
  num5:=0;
  num4 := num4 +1;
  end;
  if num4 =64 then
  begin
  num4:=0;
  num3 := num3 +1;
  end;
  if num3 =64 then
  begin
  num3:=0;
  num2 := num2 +1;
  end;
  if num2 =64 then
  begin
  num2:=0;
  num1 := num1 +1;
  end
end
end;