On Thu, 30 Oct 2014, Michael Van Canneyt wrote:



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.

Forget this. I was too quick to respond.

I have done some digging, but cannot find a reason for the current behaviour.

Michael.
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Reply via email to