[JVCL-Checkins] dev/JVCL3/devtools/PackagesGenerator GenerateUtils.pas,1.71,1.72 - Fixed AV when xml node does not exist.

[Andreas H. <ah...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/devtools/PackagesGenerator
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31735/devtools/PackagesGenerator

Modified Files:
	GenerateUtils.pas 
Log Message:
Fixed AV when xml node does not exist.


Index: GenerateUtils.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/devtools/PackagesGenerator/GenerateUtils.pas,v
retrieving revision 1.71
retrieving revision 1.72
diff -C2 -d -r1.71 -r1.72
*** GenerateUtils.pas	23 Dec 2004 00:23:58 -0000	1.71
--- GenerateUtils.pas	23 Dec 2004 00:51:26 -0000	1.72
***************
*** 510,514 ****
        ClxReplacementList  := TClxReplacementList.Create(Node.Items.ItemNamed['ClxReplacements']);
  
!       GIncDefFileName   := Node.Properties.ItemNamed['incdeffile'].Value;
        GIncFileName      := Node.Properties.ItemNamed['IncFile'].Value;
        GPackagesLocation := Node.Properties.ItemNamed['packages'].Value;
--- 510,515 ----
        ClxReplacementList  := TClxReplacementList.Create(Node.Items.ItemNamed['ClxReplacements']);
  
!       if Assigned(Node.Properties.ItemNamed['incdeffile']) then
!         GIncDefFileName   := Node.Properties.ItemNamed['incdeffile'].Value;
        GIncFileName      := Node.Properties.ItemNamed['IncFile'].Value;
        GPackagesLocation := Node.Properties.ItemNamed['packages'].Value;