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

Previous  Top  Next

    
 

 

 

Code:

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;

 

 

©Drkb::02547

       

Взято с http://delphiworld.narod.ru