+ Fixed applyupdates for empty datasets

git-svn-id: trunk@2440 -
This commit is contained in:
joost 2006-02-05 14:01:20 +00:00
parent 66bc185aa7
commit bc4e23b9c2

View File

@ -605,7 +605,9 @@ var SaveBookmark : Integer;
begin
CheckBrowseMode;
if IsEmpty then exit;
// There is no bookmark available if the dataset is empty
if not IsEmpty then
SaveBookMark := GetRecNo;
r := 0;
@ -652,12 +654,13 @@ begin
end;
inc(r);
end;
if not GetDeleted(pbyte(FBBuffers[savebookmark])) then
if not IsEmpty then
begin
InternalGotoBookMark(@SaveBookMark);
Resync([rmExact,rmCenter]);
end;
end
else
InternalFirst;
end;
procedure TBufDataset.InternalPost;