[fpc-devel] Bug 5049: Record insert at eof in TSQLQuery

[Martin Schreiber]

On Wednesday 26 April 2006 00.43, Joost van der Sluis wrote:
>
> Keep me informed.
> Ik you find something that doesn't sound logical to you, just say so.
>
One problem is in internalfirst.

Old:
procedure TBufDataset.InternalFirst;
begin
  FBCurrentRecord := -1;
  FIsEOF := false;
end;

New:
procedure TBufDataset.InternalFirst;
begin
  FCurrentRecBuf := FFirstRecBuf;
end;

-> TBufDataset returns recorddata of recno 1+ instead of recno 0+ by call of 
GetNextRecords in TDataset.First.

Martin