我想从数据表里提取出age字段的前四个数据并把他们加起来，想通过出发buttonclick事件来把所得到的结果显示在控件edit上，我在一个form里面放置了一个table，一个datasource,一个button和一个edit,所有的连接都是正确，并且可以运行出来．
我的那个数据表的age字段的前四个值是２１，２０，１９，２０但是运行结果是８４．不知道程序那里错了
程序如下：
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（１）来代替next，提示错误是＂没有定义moveby"，务必请大哥，大姐尽快解答，我急用．

你的String 要先转化成Integer再相加，String+String是会出错的
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(strtoint(i)+strtoint(j)+strtoint(s)+strtoint(g));
end;
end