function TBDEDirect.CompareBookmarks(Bookmark1, Bookmark2: TBookmark): Boolean;
var
Res: DBIResult;
CompareRes: Word;
begin
Result := False;
if CheckDatabase then
begin
Res := DbiCompareBookmarks(FDataLink.DataSource.DataSet.Handle,
Bookmark1, Bookmark2, CompareRes);
if Res = 0 then
if CompareRes = 0 then
Result := True
else
else
Check(Res);
end;
end;
|