I tried to use the component JvDBTreeview of the Jedi Library (is simple to implement), and I got the exception below:
Code: Select all
procedure TZAbstractRODataset.InternalGotoBookmark(Bookmark: Pointer);
var
Index: Integer;
begin
Index := CurrentRows.IndexOf(Bookmark);
if Index < 0 then
[bcolor=#FF0000]raise EZDatabaseError.Create(SBookmarkWasNotFound);[/bcolor]
if Index < CurrentRow then
CheckBiDirectional;
CurrentRow := Index + 1;
end;
Code: Select all
var
BK: TBookmark;
begin
zquery1.Open;
BK := zquery1.GetBookmark;
zquery1.GotoBookmark(BK);
end;
I´m use D2009 and ZeosLib7