Новые книги
Магия Pixar
Под этой обложкой головокружительная история рождения, взросления и успеха всемирно известной компании, сделавшей миллиардером... самого Стива Джобса! Временно, на момент основания компании, безработного.

О компании, которую знают все, даже если не помнят названия. О компании, которая началась с абсолютно безумной фантазии.

Нет, вовсе не об Apple. Герой этой книги — анимационная студия Pixar, сверх-успешная компания, совершившая техническую революцию и навсегда изменившая киноиндустрию. Прайс рассказывает и о том, как создавалась Pixar, и о том, чем заняты ее сотрудники сегодня.

Это настоящий подарок для всех, кто ценит выдающиеся компании. И мультфильмы.
Вопросы истории: UNIX, Linux, BSD и другие
Это попытка последовательного изложения истории UNIX, Linux и свободных ОС вообще, а также связанных с ними графических интерфейсов. Она разделяется на три части: в первой рассматривается история UNIX-подобных операционных систем, во второй – дистрибутивов Linux, в третьей – их интерфейсов. Основана на печатных и сетевых материалах, воспоминаниях очевидцев, устной традиции и личных впечатлениях.

Как перейти к указанной записи в БД?
Версия для печати


Как перейти к указанной записи в БД?

Демонстрация перехода к указанной записи через задание номера записи. 
function TBDEDirect.GoToRecord(RecNo: LongInt): Boolean;
var
  RecCount: LongInt;
  Bookmark: TBookmark;
  Res: DBIResult;
begin
  Result := False;
  if CheckDatabase then
    begin
      if RecNo < 1 then
        RecNo := 1;
      RecCount := GetRecordCount;
      if RecNo > RecCount then
        RecNo := RecCount;
      Res := DbiSetToRecordNo(FDataLink.DataSource.DataSet.Handle,
        RecNo);
      if Res = 0 then
        begin
          Bookmark := StrAlloc(GetBookmarkSize);
          DbiGetBookmark(FDataLink.DataSource.DataSet.Handle,
            Bookmark);
          FDataLink.DataSource.DataSet.GoToBookmark(Bookmark);
          FDataLink.DataSource.DataSet.FreeBookmark(Bookmark);
          Result := True;
        end
      else
        Check(Res);
    end;
end;


Оглавление