改错题,指出下列程序错误并纠正(每小题5处
改错题,指出下列程序错误并纠正(每小题5处
1、 输入一个整数(小于100),输出其平方
procedure squa (x:integer):integer
{
result=:x*x
}
2、 一个TADOQuery类数据集组件ADOQ1,其中存放一个含className字段的班级表,要求将ADOQ1的className字段对应的所有值通过循环依次加到组合框CB_Class中,并设置其默认显示项为CB_Class中第一项,实现如下
while not ADOQ1.bof do
begin
CB_Class.items.add(ADOQ1.FieldByName(‘className’));
End
这是我学的Delphi语言的作业