我想从数据表里提取出age字段的前四个数据并把他们加起来,想通过出发buttonclick事件来把所得到的结果显示在控件edit上,我在一个form里面放置了一个table,一个datasource,一个button和一个edit,所有的连接都是正确,并且可以运行出来.
我的那个数据表的age字段的前四个值是21,20,19,20但是运行结果是84.不知道程序那里错了
程序如下:
procedure TForm1.Button1Click(Sender: TObject);
var i,j,g,s:integer;
begin
with table1 do
first;
i:=fieldbyname('age).asstring;
next;
j:=fieldbyname('age').asstring;
next;
s:=fieldbyname('age').asstring;
next;
g:=fieldbyname('age').asstring;
edit1.text:=inttostr(i+j+s+g);
end;
end.
感觉是指针没有指到下面的记录,所以可能是next方法的应用错误.还有就是在这里不能用moveby(1)来代替next,提示错误是"没有定义moveby",务必请大哥,大姐尽快解答,我急用.