如何在Delphi5中实现go()语句的功能?特急!!!(50分)

  • 主题发起人 主题发起人 zgyingmu
  • 开始时间 开始时间
Z

zgyingmu

Unregistered / Unconfirmed
GUEST, unregistred user!
请问如何在Delphi5中实现类似于Foxpro中的go(i)语句的功能,即根据用户指定的i:Integer
的值,自动跳到第i条记录.
 
Table1.Active := True;
Table1.First;
Table1.MoveBy(i - 1);
 
来晚了:((((, 但还是想说 :)))
function MoveBy(Distance: Integer): Integer;
Distance的正负决定移动的方向(向前或向后)
 
moveby返回移动记录数
编程中要考虑记录的范围
if moveby(i)=i then ..... else showmessage('无此记录或超出范围')
 
dq说得对
 
用recno也行吧?
 
接受答案了.
 
后退
顶部