mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-05 17:05:19 -05:00
Resolves bug #33.
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@397 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
parent
939298bf44
commit
fdbce3ec51
@ -599,8 +599,12 @@ begin
|
|||||||
C := 0;
|
C := 0;
|
||||||
if Nodes.GetFirstNode <> nil then
|
if Nodes.GetFirstNode <> nil then
|
||||||
WalkTree(Nodes.GetFirstNode, RootNode, XMLDoc, C);
|
WalkTree(Nodes.GetFirstNode, RootNode, XMLDoc, C);
|
||||||
|
try
|
||||||
WriteXMLFile(XMLDoc, fileName);
|
WriteXMLFile(XMLDoc, fileName);
|
||||||
|
except
|
||||||
|
Writeln('Failed to write ' + fileName);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
XMLDoc.Free;
|
XMLDoc.Free;
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user