Новые книги
Быстрые деньги в Интернете. 50 способов заработать, сидя дома у компьютера
В этой книге представлены 50 реальных, законных и быстрых способов заработать, имея под рукой только компьютер и доступ в Интернет. Вам не понадобятся вложения и специальные знания. Все советы даны в сжатом виде – только самое ценное, что действительно работает, без «воды».

По каждому из способов дана подробная пошаговая инструкция: что и как делать, в какой последовательности.

Вы сможете заработать деньги буквально в течение нескольких дней, вам надо лишь взять и сделать то, о чем написано в этой книге.
Delphi. Учимся на примерах
Данная книга — продолжение предыдущей книги автора, "Delphi. Только практика". Также как и в "Delphi. Только практика", в данном издании подробно рассмотрены программы для сетей, различные шуточные программы, простые игрушки, некоторые полезные приложения, разработка приложений в стиле Windows XP. В частности, здесь можно найти такие примеры как бесплатная отправка SMS, FTP-клиент, простое шифрование, CGI-сценарии и многое другое. Описаны методы работы с системным реестром Windows и INI-файлами, а также некоторые важные аспекты программирования на системном уровне с применением функций Windows API. Для облегчения понимания программ каждый пример содержит комментарии сложных строк кода.

Книга ориентирована как на тех, кто уже имеет опыт создания приложений в Delphi, так и на начинающих программистов. Для начинающих пользователей Delphi в конце книги добавлено приложение с описанием синтаксиса языка программирования Object Pascal.

Как сравнить bookmarks в таблице?
Версия для печати


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


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;


Оглавление