Fórum Para um loopins em um While #230179

procedure TForm1.Button1Click(Sender: TObject);
begin
DmBanco.TbAnoAnterior.First;//va para o primeiro
while not Dmbanco.TbAnoAnterior.Eof do
  begin
    mAnoAnterior:=ColunaAnoAnterior.AsString;
    DmBanco.TBConfirmacao.First;//va para o primeiro
    while not DmBanco.TbConfirmacao.eof do
      Begin
        mConfirmacao:=ColunaConfirmacao.AsString;
        If (mAnoAnterior=mConfirmacao) then
          Begin
            if (modalidade.AsString=´OK´) or (modalidade.AsString=´Ok´) then
              Begin
                CabecaA.Caption:=mAnoAnterior;
                mCidadeA:=mAnoAnterior;
                Break;//**********Comando Break conforme Paulo sugeriu
              End;
          End;
        DmBanco.TbConfirmacao.Next;
      end;
    DmBanco.TBAnoAnterior.Next;
  end;
end;

procedure TFrmGrupos.GrupoA; 
var
 parar:Boolean; //variavel que iremos usar como Flag
begin
 parar:=False;
DmBanco.TbAnoAnterior.First;//va para o primeiro
while not Dmbanco.TbAnoAnterior.Eof do
  begin
    mAnoAnterior:=ColunaAnoAnterior.AsString;
    DmBanco.TBConfirmacao.First;//va para o primeiro
    while not DmBanco.TbConfirmacao.eof do
      Begin
        mConfirmacao:=ColunaConfirmacao.AsString;
        If (mAnoAnterior=mConfirmacao) then
          Begin
            if (modalidade.AsString=´OK´) or (modalidade.AsString=´Ok´) then
              Begin
                CabecaA.Caption:=mAnoAnterior;
                mCidadeA:=mAnoAnterior;
                Parar:=True;
              End;
          End;
        DmBanco.TbConfirmacao.Next;
      end;
    if parar Then
       DmBanco.TBAnoAnterior.Next
    else
       Break;//acho que e aqui que deve ser colocado
  end;
end;

procedure TFrmGrupos.GrupoA; 
var 
parar:Boolean; //variavel que iremos usar como Flag 
begin 
parar:=False; 
DmBanco.TbAnoAnterior.First;//va para o primeiro 
while not Dmbanco.TbAnoAnterior.Eof do 
  begin 
    mAnoAnterior:=ColunaAnoAnterior.AsString; 
    DmBanco.TBConfirmacao.First;//va para o primeiro 
    while not DmBanco.TbConfirmacao.eof do 
      Begin 
        mConfirmacao:=ColunaConfirmacao.AsString; 
        If (mAnoAnterior=mConfirmacao) then 
          Begin 
            if (modalidade.AsString=´OK´)or(modalidade.AsString=´Ok´) then 
              Begin 
                CabecaA.Caption:=mAnoAnterior; 
                mCidadeA:=mAnoAnterior; 
                Parar:=True; 
              End; 
          End; 
        DmBanco.TbConfirmacao.Next; 
      end; 
    if not parar Then 
       DmBanco.TBAnoAnterior.Next 
    else 
       Break;//acho que e aqui que deve ser colocado 
  end; 
end;