关于radiogroup问题

Question

我是delphi初学者，我想实现,在一个datagrid中点一行然后在下面的radiogroup出现一些备选项目,类似于问卷调查，上面显示题目，下面显示各个题目答案，当我对其中的某个题目做出了选择后，希望我回过头来重新选择时，radiogroup的ItemIndex为上次我做出的答案这里，部分代码如下:procedure TForm1.ADOQuery1AfterScroll(DataSet: TDataSet);
   var strQuestID,strQuestValue :string ;
begin   with ADOQuery1 do
   begin
        strQuestID := Fieldbyname('QuestID').asstring;
        ADOQueryAnswer.SQL.Clear;
        ADOQueryAnswer.SQL.Add('select * from QuestionAnswer where QuestID='+strQuestID);
        ADOQueryAnswer.Open;
        RadioGroup1.Items.Clear;
        while not AdoQueryAnswer.Eof  do
            begin
            strQuestValue:= ADOQueryAnswer.FieldByName('QuestValue').AsString;
            RadioGroup1.Items.Add(strQuestValue);
            AdoQueryAnswer.next;
            end;
            RadioGroup1.Items.Add('不选');
            RadioGroup1.ItemIndex:= RadioGroup1.Items.Count-1;
           endend;

Answer 1

我是想实现这样的功能，上面显示一堆题目，下面的radiogroup呢，就显示每个题目的答案，各个题目，显示的答案都不相同，但是有这么一种可能，当我对某一题选了比如100这个选项，后来我又想修改这个题目的答案，这样我从新点到这道题的时候，我希望radiogroup的ItemIndex在选项为100这里，我在每次选一个题目的时候，就把这道题的答案从表中取出来，并且多添加一个“不选”的选项，并设“不选”为默认值。

Answer 2

哈哈，我有一个现成的代码，你要就留下你的qq或msn

Answer 3

只要第一次选择以后你就可以记录所选的是哪个index，第二次再选择的时候就把这个index赋值过去不就行了

Answer 4

LLanV报表工具(打印预览软件)--免费使用--免费升级一流的打印预览软件
超越水晶报表,是我们的目标
特别适合用于轻松快速解决大量报表的情形
彻底解除程序员负担,极大提高用户设定灵活性
经过了10000行以上数据的压力测试，性能优良！其中一部分功能如下：  
1.支持资料卡(比如:个人简历),表单(比如:销售定单),报表(比如:销售月报表)的预览打印
2.不用任何设定,就可以默认产生专业的页面
3.用户可以一次性设定企业标准样式(比如:公司标志,台头)
4.支持文本,线条,方框，图片，等报表元素
5.对各报表元素和报表区域等提供丰富的属性
6.用户可以在运行期间编辑文本,线条,方框，图片,明细列, 操作简单
7.支持同一列相同数据合并成一个格
8.可以在运行期间增删,调换明细列
9.提供多种报表风格
10.支持页合计,总计
11.支持的套打报表
12.支持MIS开发的各种开发工具：如VC、VB、Delphi等
13.可以直接连接数据库
14.用户可以把设定后的报表样式保存为报表样式文件
15.报表头和报表尾均可多于一页
16.报表样式文件格式完全开放
17.可以实现中国式复杂报表样式
18.无须编程请发EMAIL给[email protected]