长安大学delphi考试材料delphi编程.pdfVIP

弹出提示框所选内容： IfRadioButton1.Checked=truethen Begin application.MessageBox(‘性别为男’，’性别选择’，0)； End Else Begin application.MessageBox(‘性别为女’,’性别选择’，0); 数据库中使某字体变大 Begin S:=table1.fieldByName(‘remarks’).AsString; S:=UpperCase(s); Table1.Edit; Table1.FieldByName(‘Remarks’).AsString:=s; Table1.post; End; 数据库任意内容添加至可选框 begin i:=0 Whilei=table1.recordCountdo Begin Listbox1.Items.Add(table1.Fields[0].Value); i:=i+1; Table1.next; end; end;