1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-22 17:22:21 -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:
Wizzup? 2010-01-11 17:22:55 +00:00
parent 939298bf44
commit fdbce3ec51

View File

@ -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;