RE: [delphi-br] Contagem de Componentes

Ola Jose procedure TForm1.Button1Click(Sender: TObject); var c,i: integer; begin c:= 0; for i:= 0 to ComponentCount-1 do if (Components[i] is TCheckbox) and TCheckBox(Components[i]).Checked then inc(c); showmessage(inttostr(c)); end; Att Steve -Original Message- From:

Re: [delphi-br] Contagem de Componentes

Eu resolvi assim: - Declarei uma Procedure chamada ContarSelecionados(Sender: TObject) - Para efeito de exemplo, declarei uma procedure chamada MostrarContagem - Declarei uma variável privada chamada selecionados - Implementei o seguinte código: [ INICIO ] Procedure TForm1.MostrarContagem;