
void TIWForm2::XSdq(int TH) //显示当前题号
{
if(TH<0)
return;
//
FDQuery1->RecNo=TH ;
IWLabel1->Caption=" [ 第 "+String(FDQuery1->RecNo) +"/共 "+ String(FDQuery1->RecNo)+" ]";
//显示题目
IWMemo1->Text=FDQuery1->Fields->Fields[1]->AsString; //读取备注型字段
IWRadioButton1->Caption=FDQuery1->Fields->Fields[2]->Text;
IWRadioButton2->Caption=FDQuery1->Fields->Fields[3]->Text;
IWRadioButton3->Caption=FDQuery1->Fields->Fields[4]->Text;
IWRadioButton4->Caption=FDQuery1->Fields->Fields[5]->Text;
}



被折叠的 条评论
为什么被折叠?



