Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Как сравнить bookmarks в таблице?

Автор: Poseidon 18.5.2005, 14:47

Код

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;