| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3871 人关注过本帖
标题:delphi中的next和moveby函数怎么用?
只看楼主 加入收藏
wzdhxhn_122
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2006-3-1
收藏
 问题点数:0 回复次数:1 
delphi中的next和moveby函数怎么用?

我想从数据表里提取出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",务必请大哥,大姐尽快解答,我急用.





搜索更多相关主题的帖子: delphi next moveby 函数 age 
2006-03-01 19:31
xiaojunvip
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2007-6-5
收藏
得分:0 
回复:(wzdhxhn_122)delphi中的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

2007-06-05 21:19
快速回复:delphi中的next和moveby函数怎么用?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026523 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved