delphi 用lable来显示 如何实现首先显示我查询出来的一条记录 然后在一定的时间后再显示下一条记录?
delphi用lable来显示我的记录内容如何实现首先显示我查询出来的一条记录然后在一定的时间后再显示下一条记录?谢谢大家...
delphi 用lable来显示我的记录内容 如何实现首先显示我查询出来的一条记录 然后在一定的时间后再显示下一条记录?
谢谢大家 展开
谢谢大家 展开
5个回答
展开全部
把查询出来的记录存储在recordset中,然后用一个timer定时器,每隔一定的时间,就recordset执行movenext,然后读取记录信息,显示在label上。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用定时器Timer可以实现,OnTimer事件中
if not query1.eof then
begin
query1.next;
label1.caption:=query1.Fields[].asstring;
end;
if not query1.eof then
begin
query1.next;
label1.caption:=query1.Fields[].asstring;
end;
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
如果数据量小的话你可以把数据一次性提取 放到一个文本 或者 listview控件里 在timer控件里 设置间隔时间 一行一行的显示出来比较好
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
不需要用Timer.
query1.first;
if not query1.eof then
begin
label1.caption:=query1.Fields[].asstring;
Sleep(2000); //停2000毫秒,即2s
Application.ProcessMessages; //刷新一下界面
query1.next;
end;
query1.first;
if not query1.eof then
begin
label1.caption:=query1.Fields[].asstring;
Sleep(2000); //停2000毫秒,即2s
Application.ProcessMessages; //刷新一下界面
query1.next;
end;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
建议用一个timer控件来控制记录型文件指针。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询