Subject Re: [IBO] TIBOQUERY Problem
Author Jason Wharton
What version of IBO are you using?

Here is the current implementation of that method and it doesn't include a
FetchAll. I think you are using old stuff...

function TIBODataset.CompareBookmarks( ABookmark1,
ABookmark2: TBookmark ): Integer;
var
B1, B2: integer;
BS1, BS2: string;
begin
B1 := 0;
B2 := 0;
if Assigned( ABookmark1 ) and Assigned( ABookmark2 ) then
begin
SetLength( BS1, BookmarkSize );
SetLength( BS2, BookmarkSize );
Move( ABookmark1^, pointer( BS1 )^, BookmarkSize );
Move( ABookmark2^, pointer( BS2 )^, BookmarkSize );
InternalDataset.BufferBookmark := BS1;
B1 := InternalDataset.BufferRowNum;
if B1 < InternalDataset.BofRowNum then
B1 := InternalDataset.BofRowNum;
InternalDataset.BufferBookmark := BS2;
B2 := InternalDataset.BufferRowNum;
if B2 < InternalDataset.BofRowNum then
B2 := InternalDataset.BofRowNum;
end;
if B1 = B2 then
Result := 0
else
if B1 > B2 then
Result := 1
else
Result := -1;
end;

Regards,
Jason Wharton
CPS - Mesa AZ
http://www.ibobjects.com