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 

Como executar um bloco de comandos 30 vezes seguidas?

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


Registrado: Sexta-Feira, 8 de Janeiro de 2010
Mensagens: 289
MensagemEnviada: Sex Nov 05, 2010 9:55 am    Assunto: Como executar um bloco de comandos 30 vezes seguidas? Responder com Citação
Eu tô precisando executar um bloco de comando 30 vezes seguidas, tipo em um loop de 30 vezes....

alguém sabe como faço isso?

códigos por favor...
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
rafmattos
Colaborador
Colaborador


Registrado: Quinta-Feira, 11 de Fevereiro de 2010
Mensagens: 3416
Localização: Campo Grande/MS
MensagemEnviada: Sex Nov 05, 2010 10:06 am    Assunto: Responder com Citação
Código:

procedure TForm1.Button1Click(Sender: TObject);
var
   i : Integer;
begin
    for I := 1 to 30 do
    begin
//        SEU CÓDIGO
    end;
end;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail Visitar a homepage do Usuário MSN Messenger
joemil
Moderador
Moderador


Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9098
Localização: Sinop-MT
MensagemEnviada: Sex Nov 05, 2010 10:47 am    Assunto: Responder com Citação
com while:

Código:
procedure ...
var x: Integer;
begin
   x := 1;
   while x <= 30 do
   begin
      // SEU BLOCO DE CODIGO
     Inc(x);
   end;
end;


com repeat:

Código:
procedure ...
var x: Integer;
begin
   x := 1;
   repeat
      // SEU BLOCO DE CODIGO
      Inc(x);
   until x <= 30;
end;

_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
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