实例——移动记录指针并在进程条中显示移动过程.txt

来自「Delphi 7组件应用实例 书籍语言： 简体中文 书籍类」· 文本 代码 · 共 27 行

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；