Как сравнить bookmarks в таблице?

Previous  Top  Next

    
 

 

 

Code:

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;

 

 

 

 

©Drkb::02608