procedureTForm1。Button10Click( );vari,s,//begins:=0;i:=3;fori:=3toadoquery1。FieldCount-1dobeginsum:=ADOQuery1。Fields[i]。AsInteger;s:=s+sum;end;label1。
Caption:=inttostr(s);//label1。Caption:=sum;end;帮帮忙啊!实在想不出了啊!想了很久还是有错误,烦死了。我就是想通过下标把数据累加求和。为什么上述不得呢?但是如果我假设为静态的数据库中存在那些字段那么用下面的方法却能计算总分也就是求和的结果呢,我都弄不懂原因了啊!procedureTForm1。
Button8Click( );varsx,yy,wl,hx,yw,zf:real;beginsx:=StrToFloat(ADOQuery1。FieldByName('数学')。AsString);yy:=StrToFloat(ADOQuery1。FieldByName('英语')。
AsString);wl:=StrToFloat(ADOQuery1。FieldByName('物理')。AsString);hx:=StrToFloat(ADOQuery1。FieldByName('化学')。AsString);yw:=StrToFloat(ADOQuery1。
FieldByName('语文')。AsString);zf:=sx+yy+wl+hx+yw;ADOQuery1。edit;ADOQuery1。FieldByName('总分')。AsString:=FloatToStr(zf);ADOQuery1。post;ADOQuery1。
Next;end;知道的尽量指点一下哦,我都一直弄不懂这里。