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

- Вы с компьютером на "ты" или на "вы"?
- Я с ним на "е.. твою мать!"

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;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 178 • TDictionary Custom Sort 3 352 • Fast Watermark Sources 3 104 • 3D Designer 4 859 • Sik Screen Capture 3 360 • Patch Maker 3 564 • Айболит (remote control) 3 671 • ListBox Drag & Drop 3 029 • Доска для игры Реверси 81 780 • Графические эффекты 3 954 • Рисование по маске 3 262 • Перетаскивание изображений 2 640 • Canvas Drawing 2 769 • Рисование Луны 2 592 • Поворот изображения 2 205 • Рисование стержней 2 176 • Paint on Shape 1 576 • Генератор кроссвордов 2 249 • Головоломка Paletto 1 775 • Теорема Монжа об окружностях 2 243 • Пазл Numbrix 1 691 • Заборы и коммивояжеры 2 064 • Игра HIP 1 285 • Игра Go (Го) 1 235 • Симулятор лифта 1 480 • Программа укладки плитки 1 223 • Генератор лабиринта 1 552 • Проверка числового ввода 1 371 • HEX View 1 501 • Физический маятник 1 362