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

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

— Вы с компьютером на «ты» или на «вы»?

— Я с ним на «е.. твою мать!»

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;

{/codecitation}

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