(Resolvido) Contador

[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?

[Pirambu!]

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.

[Jhonas]

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

[edsouzza]

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;