如何做到一组RadioButton（k）随值不同对应 f(k)

Question

一组RadioButton（k）随值不同对应 f(k) 
RadioButton1.onclick,得到k=1的一段算法; 
RadioButton2.onclick,得到k=2的一段算法;  

Answer 1

f（RadioButton： TRadioButton）;

Answer 2

function f（RadioButton： TRadioButton）;
begin end
是吗？

Answer 3

不知道你要实现什么?
不过可以把所有的RadioButton算法放到一个过程中去,再调用!!Prcodure TForm1.f(k:integer);
begin
  case k of
   1:begin
     //k=1的一段算法;
     end;
   2:begin
      //k=2的一段算法;
     end;
     ...
  end; //end case
end;Prcodure TForm1.RadioButton1Onclick(Sender:Object);
begin
 F(1);
end;

Answer 4

设置RadioButton的tag属性为1，2，3，4，然后所有的RadioButton的Onclick事件都指向同一个k := (Sender as TRadioButton).Tag;TForm1.f(k);