[fpc-pascal] Why TSdfDataSet doesn't simply return FCurRec as RecNo?
Luca Olivetti
luca at ventoso.org
Mon Nov 10 22:22:06 CET 2014
El 30/10/14 a les 22:44, Michael Van Canneyt ha escrit:
>>>> 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;
>>>>
[...]
> I understand why the GetRecNo is there, just not why it is implemented
> as it is in TSDFDataset.
> (which is what I was investigating)
So, what's the verdict? Will it stay this way for the foreseeable future
or will it be changed?
Should I file a bug report or should it not be considered a bug?
Bye
--
Luca
More information about the fpc-pascal
mailing list