paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 17:46:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

xmlstreaming: fixed error handling

Browse Source 
git-svn-id: trunk@45657 -
This commit is contained in:
mattias 2014-06-25 07:40:54 +00:00
parent deded5a183
commit 15cadf6352
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/xmlstreaming/mainunit.pas
View File

@ -147,7 +147,7 @@ begin
Writer.WriteRootComponent(AComponent);
XMLConfig.Flush;
finally
if DestroyDriver then
if DestroyDriver and (Writer<>nil) then
Writer.Driver.Free;
Writer.Free;
end;