testar radiobutton

[Travis 0]

ae galera blzinha ??entao to montando um progrmaa com 12 radio button na tela principal.. queria saber se no delphi existe alguma função q teste todos eles duma veiz para q o codigo nao fike como este q eu fiz.if ( form1.radiobutton1.checked = true ) or form1.radiobutton2.checked = true) or .....(form1.radiobutton12.checked = true);existe algum comando q faça este teste sem ter q escrever todo essas linhas de codigo ??valeuuzz!!!!!

[lenn0n 0]

tente isso

 

 

var i : integer;	 bolOK:boolean;begin  For i:= 0 To ComponentCount-1 Do  begin	if Components[i] is TRadioButton Then	  bolOK := bolOK and TRadioButton(Components[i]).Checked;  end;  if (bolOK) then   ShowMessage('Todos os radiobuttons estão checados');end;

ele vai pegar TODOS os radios do form

 

se você estiver chamando os radios de outro form, eh soh colocar Form1.Componen .... em todos... entendeu?

qualquer coisa, chama ae

 

[]'s ^_^