Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Contador


edsouzza

Pergunta

Pessoal, preciso do seguinte:

Ao clicar em um botao(Gravar) na 1ª vez => Será gravado em um campo chamado Obs '1ª Rodada'

2ª vez => '1ª Rodada'

3ª vez => '1ª Rodada'

4ª vez => '2ª Rodada'

5ª vez => '2ª Rodada'

6ª vez => '2ª Rodada'

7ª vez => '3ª Rodada'

Resumindo cada 3 clicks determinará uma Rodada.

Criei uma variavel chamada Rodada, mas os loops não deram certo. Alguém tem alguma dica?

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

EdSouzza, existem várias formas de fazer este loop, uma que eu uso muito é assim:

Proc....
Var
Num:Integer;
begin
Num:=0;
while num < 3 do
begin
//realiza o Comando.
//Depois dá continuidade ao loop.
Num:= Num + 1;
end;
end;

O loop vai exister enquanto o "Num" for menor que "3" ou você pode usar um valor externo.

Link para o comentário
Compartilhar em outros sites

  • 0
Ao clicar em um botao(Gravar) na 1ª vez => Será gravado em um campo chamado Obs '1ª Rodada'

2ª vez => '1ª Rodada'

3ª vez => '1ª Rodada'

4ª vez => '2ª Rodada'

5ª vez => '2ª Rodada'

6ª vez => '2ª Rodada'

7ª vez => '3ª Rodada'

Resumindo cada 3 clicks determinará uma Rodada.

Veja se é isto que está querendo

var
  Form1: TForm1;
  rodada : integer = 0;
  num : integer = 0;
  n : integer = 1;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
   num := num + 1;
   if num < 4 then
      begin
         rodada := n;
         memo1.Lines.Append(inttostr(rodada)+'ª '+'Rodada');
      end
   else
      begin
         num := 1;
         n := n + 1;
         rodada := n;
         memo1.Lines.Append(inttostr(rodada)+'ª '+'Rodada');
      end;
end;

abraço

Link para o comentário
Compartilhar em outros sites

  • 0

Perfeito Jhonas fiz assim para adequar á minha necessidade e deu tudo certo. Muitissimo obrigado.

procedure TfrmLances.ContadorDeClicks;

begin

num := num + 1;

if num < 4 then

begin

rodada := n;

end

else

begin

num := 1;

n := n + 1;

rodada := n;

end;

end;

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...