procedure TForm1.MoveToRecNo(DataSet: TDataset; RecNo: Integer); begin if RecNo >= DataSet.RecNo then DataSet.RecNo := RecNo + 5 else DataSet.RecNo := RecNo - 5; DataSet.RecNo := RecNo; end;
5,388
社区成员
262,730
社区内容
加载中
试试用AI创作助手写篇文章吧