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

[Joost van der Sluis]

On Thu, 2006-04-27 at 12:57 +0200, Martin Schreiber wrote:
> 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.

fixed in revision 3364