Question

这有一段delphi程序，请看得懂的人给我解释一下。关于bookmark的

请帮忙解释一下，谢谢大家了！！！

procedure TXXQK.Button7Click(Sender: TObject);
var BOOKMARK:Tbookmark;
begin
try
if dbedit1.Text='' then
begin
showmessage('合同号不能为空');
dbedit1.SetFocus;
exit;
end;
button1.Enabled:=true;
button9.Enabled:=true;
button6.Enabled:=true;
query1.post;
if FJQKForm.Visible=true then
FJQKForm.OnShow(nil);
bookmark:=query1.GetBookmark;
button7.Enabled:=false;
button1.SetFocus;
query1.Close;
query1.Open;
query1.GotoBookmark(bookmark);
except
on E:Exception do
ErrMsg(Handle,81031005,E);
end;
end;

Answer 1

就是BDE Query 加了个书签吧!
type TBookmark = Pointer; 类型是指针