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.
dataset.inc:
Procedure TDataset.DoInsertAppend(DoAppend : Boolean);
procedure DoInsert;
[...]
if FActiveRecord < FRecordCount-1 then <<<<<< !!!!!!
begin
TempBuf := FBuffers[FBuffercount];
move(FBuffers[FActiveRecord],FBuffers[FActiveRecord+1],
(Fbuffercount-FActiveRecord)*sizeof(FBuffers[0]));
FBuffers[FActiveRecord]:=TempBuf;
end
else if FRecordcount=FBuffercount then
shiftbuffersbackward <<<<<<<<<<<<<<<<<<
else begin
if FRecordCount>0 then
inc(FActiveRecord);
end;
Inserted records are displayed *after* the current record if the current
record is at end of buffer!
Martin
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
