edsouzza Postado Junho 23, 2008 Denunciar Share Postado Junho 23, 2008 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? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Pirambu! Postado Junho 23, 2008 Denunciar Share Postado Junho 23, 2008 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. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Junho 23, 2008 Denunciar Share Postado Junho 23, 2008 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á querendovar 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 edsouzza Postado Junho 23, 2008 Autor Denunciar Share Postado Junho 23, 2008 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; Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
edsouzza
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
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.