TBookMark 怎么直接给它赋值？

Question

var 
  book：TBookMark ;
怎么初始化book，使book <> nil；小弟现在在改别人的delphi3.0项目，可是delphi不熟。
谢了。

Answer 1

建议不要用TBookMark用TBookStr，TBookStr不用释，Delphi自己回收内存，因为它的实现类型为String
var
  BK: TBookStr;
begin
  BK :=  ADOQuery1.Book;//得一个书签
  {....}
  ADOQuery1.Book := BK;
end;

Answer 2

如果是TBookvar
  BK: TBook;
begin
  BK := ADOQuery1.GetBook;
  try
    {....}
    ADOQuery1.GotoBook(BK);//跳到书签处
  finally
    ADOQuery1.FreeBook(BK); //用完还要记得释放
  end;
end;