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

* Do not scroll the dataset while saving it to file

Browse Source 
git-svn-id: trunk@11513 -
This commit is contained in:
joost 2008-08-05 19:00:45 +00:00
parent 712d6b4451
commit 3291b023b5
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/fcl-db/src/base/bufdataset.pas
View File

@ -2201,7 +2201,8 @@ var XMLDocument : TXMLDocument;
AFieldNode : TDOMElement;
ARecordNode : TDOMElement;
i : integer;
BookMrk : TBookmark;
ScrollResult : TGetResult;
StoreDSState : TDataSetState;
begin
// TODO: implement filename property}
// CheckActive;
@ -2245,21 +2246,21 @@ begin
DataPacketNode.AppendChild(MetaDataNode);
RowDataNode := XMLDocument.CreateElement('ROWDATA');
DisableControls;
BookMrk:=GetBookmark;
first;
while not eof do
StoreDSState:=State;
SetTempState(dsFilter);
ScrollResult:=FCurrentIndex.ScrollFirst;
while ScrollResult=grOK do
begin
FFilterBuffer:=FCurrentIndex.CurrentBuffer;
ARecordNode := XMLDocument.CreateElement('ROW');
for i := 0 to Fields.Count-1 do
begin
ARecordNode.SetAttribute(fields[i].FieldName,fields[i].AsString);
end;
RowDataNode.AppendChild(ARecordNode);
Next;
ScrollResult:=FCurrentIndex.ScrollForward;
end;
GotoBookmark(Bookmrk);
EnableControls;
SetTempState(StoreDSState);
DataPacketNode.AppendChild(RowDataNode);
@ -2286,7 +2287,6 @@ var XMLDocument : TXMLDocument;
DataPacketNode : TDOMNode;
MetaDataNode : TDOMNode;
FieldsNode : TDOMNode;
ParamsNode : TDOMElement;
AFieldNode : TDOMNode;
AFieldDef : TFieldDef;
iFieldType : TFieldType;