移动记录指针并在进程条中显示移动过程

原创于 2009-02-20 10:02:00 发布 · 483 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer

Delphi 专栏收录该内容

95 篇文章

订阅专栏

本文介绍了一个使用Delphi实现的表格滚动示例，通过TProgressBar组件显示滚动进度。示例首先打开人员表RenYuan，然后利用TProgressBar组件的Min、Max和Position属性来展示从第一条记录到最后一项记录的滚动过程。

procedure TForm1.MovePositionBtnClick(Sender: TObject)；
var
  i: Integer；
begin
  RenYuan.Open；
  //打开人员表RenYuan
  with MovePosProgressBar do
  //使用TprogressBar组件显示移动的进程
  begin
    Min := 0；
    //设置TprogressBar组件Min和Max属性，以确定进程的范围
    Max := RenYuan.RecordCount；
    //获取人员表RenYuan的记录总数，以作为循环控制变量的终值
    RenYuan.First；
    //将记录指针一移到第一个记录的位置上
    for i := Min to Max do
    //本循环移动表的指针，从开始一直移到到最后
    begin
      Position := i；
      //设置TprogressBar组件的Position属性，确定进程条的显示位置
      RenYuan.Next；
      //将表的记录指针移到下一个记录的位置上
    End；
  End；
End；