问一个关于radiogroup的问题

Question

我想作出这样的效果：不过点击radiogroup中的第一个按钮，则edit1.text中的数据范围是1到100，点击第二个，则edit1.text中的数据的范围是100到400之间。请问如何实现？

Answer 1

Case RadioGroup1.ItemIndex of
    0:edit1.text:='100';
    1:edit1.text:='200';
    2:edit1.text:='300';
  end;

Answer 2

在Edit的Exit事件中做
Case RadioGroup1.ItemIndex of
    0:if strtoint(edit1.text)>100 then showmessage('no');
    1:if (strtoint(edit1.text)>400) or (strtoint(Edit1.text)<100) then showmessage('no');
end;