Buscar

Utilizando downto

Código

//declare uma variável I: Integer;
//Coloque no evento onClick de um Button, por exemplo:

  for I := 10 downto 0 do
    begin
      ShowMessage('Faltam ' + IntToStr(I) + ' vezes para este programa terminar');
      Application.Terminate;
    end;

//Neste caso, a variável I recebrá o valor 10. Ao clicar no botão, irá aparecer a mensagem mostrando quantas vezes faltam pro programa se fechar.
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 31/05/07
Por: Lucas Moreira De Souza
Visualizada: 7972 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009