Como saber a quantidade de edits existente em um form?

[hugalves 0]

Alguém sabe como obter isso?

[Hugo Slepicka 0]

procedure TForm1.ContaEdits;var total : Integer;begin Total := 0;  for i:= 0 to ComponentCount-1 do  begin	if Components[i].ClassName = 'TEdit' then	   Total := Total + 1;  end;end;

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[hugalves 0]

Hum.. entendi. E como faço pra saber quais edits estao com Enable = true?

[Hugo Slepicka 0]

procedure TForm1.ContaEdits;var total : Integer;begin  Total := 0;  for i:= 0 to ComponentCount-1 do  begin	if (Components[i].ClassName = 'TEdit') And (TEdit(Components[i]).Enabled = True) then	   Total := Total + 1;  end;end;

Beleza?

[hugalves 0]

Putz, valeu mesmo cara!!

[Hugo Slepicka 0]

Opa...

 

Legal que deu certo... Beleza!!!

 

 

Abraço! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif