[fpc-pascal] Why TSdfDataSet doesn't simply return FCurRec as RecNo?

[Michael Van Canneyt]

On Thu, 30 Oct 2014, Luca Olivetti wrote:

> Hello,
>
> TFixedFormatDataSet (ancestor of TSdfDataSet) overrides GetRecNo
> (correct) but it does a strange contortion instead of simply returning
> FCurRec:
>
> function TFixedFormatDataSet.GetRecNo: Longint;
> var
>  BufPtr: TRecordBuffer;
> begin
>  Result := -1;
>  if GetActiveRecBuf(BufPtr) then
>    Result := PRecInfo(BufPtr + FRecInfoOfs)^.RecordNumber;

The records in the buffer may be in a different order than they are displayed in the grid.

Michael.