Buscar por:

Obtendo número do registro atual

Código

Function Recno(Dataset: TDataset): Longint; 

var 

CursorProps: CurProps; 

RecordProps: RECProps; 

begin 

{ Return 0 if dataset is not Paradox or dBASE } 

Result := 0; 

with Dataset do 

begin 

if State = dsInactive then DBError(SDataSetClosed); 

Check(DbiGetCursorProps(Handle, CursorProps)); 

UpdateCursorPos; 

try 

Check(DbiGetRecord(Handle, dbiNOLOCK, nil, @RecordProps)); 

case CursorProps.iSeqNums of 

0: Result := RecordProps.iPhyRecNum; { dBASE } 

1: Result := RecordProps.iSeqNum; { Paradox } 

end; 

except 

on EDBEngineError do 

Result := 0; 

end; 

end; 

end;