paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 02:50:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed bug #5070

Browse Source 
git-svn-id: trunk@3381 -
This commit is contained in:
joost 2006-04-30 11:17:23 +00:00
parent 86eb409c3a
commit 1d226830f2
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
fcl/db/dataset.inc
View File

@ -1275,7 +1275,7 @@ end;
Procedure TDataset.DoInsertAppend(DoAppend : Boolean);
procedure DoInsert;
procedure DoInsert(DoAppend : Boolean);
Var BookBeforeInsert : TBookmarkStr;
TempBuf : pointer;
@ -1286,18 +1286,22 @@ Procedure TDataset.DoInsertAppend(DoAppend : Boolean);
If FRecordcount > 0 then
BookBeforeInsert:=Bookmark;
if FActiveRecord < FRecordCount-1 then
if not DoAppend then
begin
TempBuf := FBuffers[FBuffercount];
move(FBuffers[FActiveRecord],FBuffers[FActiveRecord+1],(Fbuffercount-FActiveRecord)*sizeof(FBuffers[0]));
FBuffers[FActiveRecord]:=TempBuf;
if FRecordCount > 0 then
begin
TempBuf := FBuffers[FBuffercount];
move(FBuffers[FActiveRecord],FBuffers[FActiveRecord+1],(Fbuffercount-FActiveRecord)*sizeof(FBuffers[0]));
FBuffers[FActiveRecord]:=TempBuf;
end;
end
else if FRecordcount=FBuffercount then
shiftbuffersbackward
else begin
else
begin
if FRecordCount>0 then
inc(FActiveRecord);
end;
inc(FActiveRecord);
end;
// Active buffer is now edit buffer. Initialize.
InitRecord(FBuffers[FActiveRecord]);
@ -1339,8 +1343,7 @@ begin
{$ifdef dsdebug}
Writeln ('going to insert mode');
{$endif}
DoInsert;
DoInsert(false);
end
else
begin
@ -1352,7 +1355,7 @@ begin
GetPriorRecords;
if FRecordCount>0 then
FActiveRecord:=FRecordCount-1;
DoInsert;
DoInsert(True);
SetBookmarkFlag(ActiveBuffer,bfEOF);
FBOF :=False;
FEOF := true;