Corrijam meu loop

Question

Quando caio no primeiro NEXT, quero que ele volte para a linha whilee n�o prossiga para a linha Env.Como corrigir?  DadosQ.First;     while not DadosQ.Eof do  begin       if ModifyCB.Checked then    b...

Marcelo Saviski · Answer

Tente com o Continue:[code:1:a446179444]DadosQ.First; while not DadosQ.Eof do begin   if ModifyCB.Checked then   begin     if DadosQ.FieldByName(�DAD_MUDOU�).AsString = �N� then     begin        DadosQ.Next;       Continue;  <<< Tente isso aqui    end;  end;  Env := DadosQ.FieldByName(�DAD_COD�).AsInteger;   Texto := DadosFunction(Str2Int(DadosQ.FieldByName(�DAD_COD�).AsString));   NMHTTP1.Get(EndHttpEd.Text+Texto);   DadosQ.Next;(...)[/code:1:a446179444]� isso?...

Fknyght · Answer

[code:1:46a55bbd26]DadosQ.First;   while not DadosQ.Eof do     begin         if ( ( ModifyCB.Checked ) and ( DadosQ.FieldByName(�DAD_MUDOU�).AsString = �N�  ) ) then               DadosQ.Next        else           begin            Env := DadosQ.FieldByName(�DAD_COD�).AsInteger;             Texto := DadosFunction(Str2Int(DadosQ.FieldByName(�DAD_COD�).AsString));             NMHTTP1.Get(EndHttpEd.Text+Texto);             DadosQ.Next         end;      end;[/code:1:46a55bbd26]...

Marbravo · Answer

Primeiro vc deve tomar uma postura na hora de escrever o codigo para quando for ler n�o ser t�o dificil. Procure dar dois escpa�os antes que qualquer nova pergunta que esteja dentro de outra. + OU - Assim:

DadosQ.First; 
while not DadosQ.Eof do 
  begin 
    if ModifyCB.Checked then 
      begin 
        if DadosQ.FieldByName(�DAD_MUDOU�).AsString = �N� then 
        DadosQ.Next; 
      end
    else
      begin 
        Env := DadosQ.FieldByName(�DAD_COD�).AsInteger; 
        Texto := DadosFunction(Str2Int(DadosQ.FieldByName(�DAD_COD�).AsString)); 
        NMHTTP1.Get(EndHttpEd.Text+Texto); 
        DadosQ.Next;
      end;
  end;

[color=green:2e7ffbb0e7][i:2e7ffbb0e7]Editado Saviski - ativado BBCode[/i:2e7ffbb0e7][/color:2e7ffbb0e7]

Emerson Nascimento · Answer

DadosQ.First;
while not DadosQ.Eof do
begin
if not ModifyCB.Checked or (DadosQ.FieldByName(�DAD_MUDOU�).AsString �N�) then
begin
Env := DadosQ.FieldByName(�DAD_COD�).AsInteger;
Texto := DadosFunction(Str2Int(DadosQ.FieldByName(�DAD_COD�).AsString));
NMHTTP1.Get(EndHttpEd.Text+Texto);
end;
DadosQ.Next;
end;

F�rum Corrijam meu loop #262802