Subject | Re: [IBO] Report Builder / IBO |
---|---|
Author | Jason Wharton |
Post date | 2001-08-16T04:16:47Z |
Oops, scratch that...
This is what it should be.
function TIBODataset.BookmarkValid( ABookmark: TBookmark ): Boolean;
var
BS: string;
ANodeRef: TIB_NodeRef;
begin
Result := false;
if Assigned( ABookmark ) then
begin
Result := true;
SetLength( BS, BookmarkSize );
Move( ABookmark^, BS[1], BookmarkSize );
InternalDataset.KeyFields.RowData := BS;
if InternalDataset.NodeList.LookupNode( KeyFields.RowBuffer,
true,
ANodeRef ) then
Result := not (( rfDeleted in ANodeRef.Node.RowFlags ) and
( InternalDataset.NodeList.FilterDel )) and
not (( rfFiltered in ANodeRef.Node.RowFlags ) and
( InternalDataset.NodeList.Filtered ));
end;
end;
Regards,
Jason Wharton
CPS - Mesa AZ
http://www.ibobjects.com
This is what it should be.
function TIBODataset.BookmarkValid( ABookmark: TBookmark ): Boolean;
var
BS: string;
ANodeRef: TIB_NodeRef;
begin
Result := false;
if Assigned( ABookmark ) then
begin
Result := true;
SetLength( BS, BookmarkSize );
Move( ABookmark^, BS[1], BookmarkSize );
InternalDataset.KeyFields.RowData := BS;
if InternalDataset.NodeList.LookupNode( KeyFields.RowBuffer,
true,
ANodeRef ) then
Result := not (( rfDeleted in ANodeRef.Node.RowFlags ) and
( InternalDataset.NodeList.FilterDel )) and
not (( rfFiltered in ANodeRef.Node.RowFlags ) and
( InternalDataset.NodeList.Filtered ));
end;
end;
Regards,
Jason Wharton
CPS - Mesa AZ
http://www.ibobjects.com