ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Problema com laço de repetição FOR ou WHILE?

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
MensagemEnviada: Ter Ago 20, 2019 11:59 am    Assunto: Problema com laço de repetição FOR ou WHILE? Responder com Citação
como fazer algo para quando for uma condição usar um while se não usar um for de laço de repetição

assim
Código:
if not bCSV then
      while not DM.FDQueryAccess.Eof do
    else
      for lCounter := 0 to Pred(Gauge.MaxValue) do
    begin


O For esta dando certo, porem o while entra no loop infinito sem sair dali, se eu mudar as posições o que fica em loop infinito é o FOR.
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL
MensagemEnviada: Ter Ago 20, 2019 12:39 pm    Assunto: Responder com Citação
Código:
if not bCSV then
begin
    DM.FDQueryAccess.First;
    while not DM.FDQueryAccess.Eof do
     begin
     // processamento aqui....
     DM.FDQueryAccess.Next;
     end; 
end
else
begin
      for lCounter := 0 to Pred(Gauge.MaxValue) do
      begin
      // processamento aqui....
      end;
end;




bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
MensagemEnviada: Ter Ago 20, 2019 12:58 pm    Assunto: Responder com Citação
johnny-walker escreveu:
Código:
if not bCSV then
begin
    DM.FDQueryAccess.First;
    while not DM.FDQueryAccess.Eof do
     begin
     // processamento aqui....
     DM.FDQueryAccess.Next;
     end; 
end
else
begin
      for lCounter := 0 to Pred(Gauge.MaxValue) do
      begin
      // processamento aqui....
      end;
end;




bye


Obrigado johnny-walker, adaptei aqui a necessidade, e deu certo amigo.
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL
MensagemEnviada: Qui Ago 22, 2019 7:15 am    Assunto: Responder com Citação
Disponha e boa sorte amigo.



bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB