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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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;

{/codecitation}

Добавить комментарий