易截截图软件、单文件、免安装、纯绿色、仅160KB

delphi中关于stringgrid数据显示

我的情况是这样，我有一个stringgrid，显示4行，数据库中有100行，要求软件运行时先显示前面4行，然后隔5秒中后开始更新显示的数据，在第一行显示第二条记录，第二行显示第三条记录，……第四行显示第五条记录，依次向上滚动，直到显示完最后一条记录，再重新从第一条记录开始向上显示。
或者也可以这样显示，5秒后直接在第一行显示第五条记录，……第四行显示第八条记录，然后5秒后显示9～12条记录。
这好办呀,用个timer加上一个计数器就行了,到时自动刷新一下
效果肯定没你想象的那么好，要滚动还是建议自绘，按像素滚动才会舒服
如果加个timer，只显示前面4个啊，后面的怎么显示啊
把100行放到ss:Tstringlist
stringgrid1只设4行
定时器事件：
Delphi(Pascal) code:
inc(p);
for i:=0 to 3 do
stringgrid1.cells[0,i+1]:=ss[(p+i) % 100];

不行啊， stringgrid1.cells[0,i+1]:=ss[(p+i) % 100];在%这里抱错。
说是非法字符
%是个啥，你要干嘛


引用
引用 5 楼 sunrainxue 的回复:
不行啊， stringgrid1.cells[0,i+1]:=ss[(p+i) % 100];在%这里抱错。
说是非法字符


哦，应该改为 mod 。%是c的语法了。呵呵


感谢sz_haitao 的指导，不过你的说法不起作用，只能显示1～4条记录。
现在我改用move，完美解决问题了。
for i:=0 to adoquery1.recordcount-2 do
ss.move[i]:=ss.move[i+1];
p要设成全局变量或者窗体的属性


相关问答：

ACCESS的自定义函数在delphi里怎么用呢...

我在模块里自定义了一个函数:stradd()

可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...

这个问题有什么办法可以解决的吗? 非常感激!


(在A ......

DELPHI这种情况怎么办？ - Delphi / Windows SDK/API

就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......

delphi动态数组如何去掉一个元素

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......

delphi中select 的 where后面的id=变量怎么写啊

我的程序中有一段更新某一条记录的语句：
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.text的值已经取得;
...
...
...
adoQuery1.sql.add('update 计划清单表 set 计划日 ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号