Table目前的指针位置如何读出来?

Question

Delphi中Table目前的指针位置如何读出来?

Answer 1

var
i:integer;
begin
i:=Table.recno;
end;

Answer 2

那如何让指针指到 i:integer 记录的位置处呢?

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
//I: Integer;
bm : TBookMark;
begin
 with adoquery1 do begin
  bm := GetBookMark; {记录当前记录的位置}
  try
    next; {下移一记录}
    GotoBookMark(bm);{回到先前记录了位置的记录处}
  finally
    FreeBookMark(bm);
   end;
 end;
end;

Answer 4

MoveBy(n){当前位置将指针移动到N个记录位}
n>0 当前记录往下几条记录 n<0 当前记录往上几条记录

Answer 5

[Error] chtype.pas(91): Undeclared identifier: 'TBookMark'

Answer 6

有没有?:
var
bm : TBookMark;

Answer 7

貌似没有
我用Table.RecNo:=I;
实现了

Answer 8

改成这样吧:procedure TForm1.Button1Click(Sender: TObject);
var
bm :  string;
begin
 with adoquery1 do begin
  bm := Book; {记录当前记录的位置}
  try
    next; {下移一记录}
    Book:=bm;{回到先前记录了位置的记录处}
  finally
   bm:='';
   end;
 end;
end;