Как получить номер записи в dBASE или Paradox

Советы » Записи, индексы, поля, закладки » Как получить номер записи в dBASE или Paradox

function FindRecordNumber (aDataSet : TDataSet): longint;
 var

  cP: CurProps;
  rP: RECProps;
  DBRes: DBiResult;
 begin

  {Return 0 if dataset is not Paradox or dBase}
  Result := 0;
 
  with
 aDataset do

   begin

    if
 state = dsInactive then
 exit;
 
    {we need to make this call to grab the cursor's iSeqNums}
    DBRes := DBiGetCursorProps(Handle,cP);
    if
 DBRes <> DBIERR_NONE then
 exit;
 
    {synchronize the BDE cursor with the dataset's cursor}
    UpdateCursorPos;
 
    {fill rP with the current record's properties}
    DBRes := DBiGetRecord(Handle,DBiNOLOCK,nil
,@rP);
    if
 DBRes <> DBIERR_NONE then
 exit;
 
    {what kind of dataset are we looking at?}
    case
 cP.iSeqNums of

     0: result := rP.iPhyRecNum; {dBase}
     1: result := rP.iSeqNum;    {Paradox}
    end
;
   end
;
 end
;

Как получить номер записи в dBASE или Paradox

Другое по теме:

Категории

Статьи

Советы