From c36c25a2212d2eaf02dbd89058ad91b2171c8629 Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Sun, 9 Mar 2008 20:46:16 +0000
Subject: [PATCH] Fixed: missing semicolon in generated code for
 Load<Node>FromStream Fixed: removed xml_Offerte.pas from the included units

---
 Units/DelphiXMLDataBindingGenerator.pas | 2 +-
 X2XMLDataBindingCmdLine.bdsproj         | 2 +-
 X2XMLDataBindingCmdLine.cfg             | 1 +
 X2XMLDataBindingCmdLine.dpr             | 8 ++++++--
 4 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/Units/DelphiXMLDataBindingGenerator.pas b/Units/DelphiXMLDataBindingGenerator.pas
index dd4f233..1da1eb2 100644
--- a/Units/DelphiXMLDataBindingGenerator.pas
+++ b/Units/DelphiXMLDataBindingGenerator.pas
@@ -382,7 +382,7 @@ begin
                         '  doc := NewXMLDocument;'#13#10 +
                         '  doc.LoadFromStream(AStream);'#13#10 +
                         '  Result  := GetOfferte(doc);',
-                        '  doc: IXMLDocument');
+                        '  doc: IXMLDocument;');
 
           WriteFunction(interfaceItem.TranslatedName,
                         'New%0:s',
diff --git a/X2XMLDataBindingCmdLine.bdsproj b/X2XMLDataBindingCmdLine.bdsproj
index 034279f..6de5816 100644
--- a/X2XMLDataBindingCmdLine.bdsproj
+++ b/X2XMLDataBindingCmdLine.bdsproj
@@ -125,7 +125,7 @@
 			<Directories Name="PackageDCPOutputDir"></Directories>
 			<Directories Name="SearchPath"></Directories>
 			<Directories Name="Packages">vcl;rtl;vclx;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;vcldb;dsnapcon;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;CLXIB;ibxpress;VCLIB;teeui;teedb;tee;dss;vclactnband;vclshlctrls;dclOfficeXP;Indy70;cxLibraryVCLD7;dxBarD7;dxComnD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxsbD7;cxEditorsVCLD7;dxThemeD7;cxDataD7;cxExtEditorsVCLD7;cxPageControlVCLD7;cxGridVCLD7;cxSchedulerVCLD7;cxTreeListVCLD7;cxVerticalGridVCLD7;cxSpreadSheetVCLD7;dxNavBarD7;cxWebD7;cxWebPascalScriptD7;cxWebSnapD7;cxWebTeeChartD7;dxMasterViewD7;dxmdsD7;dxdbtrD7;dxtrmdD7;dxorgcD7;dxdborD7;dxFlowChartD7;dxLayoutControlD7;dxLayoutControlcxEditAdaptersD7;dxPSCoreD7;dxPSTeeChartD7;dxPsPrVwAdvD7;dxPSLnksD7;dxPSdxOCLnkD7;dxPSdxMVLnkD7;dxPSdxLCLnkD7;dxPSdxFCLnkD7;dxPSdxDBTVLnkD7;dxPSdxDBOCLnkD7;dxPSDBTeeChartD7;dxPScxCommonD7;dxPScxTLLnkD7;dxPScxSSLnkD7;dxPScxPCProdD7;dxPScxGridLnkD7;dxPScxExtCommonD7;dxPScxVGridLnkD7;fo_d7;xtx_d7;Rave50CLX;Rave50VCL;pngimaged7;dxGDIPlusD7;UnRegDxPNG</Directories>
-			<Directories Name="Conditionals"></Directories>
+			<Directories Name="Conditionals">madExcept</Directories>
 			<Directories Name="DebugSourceDirs"></Directories>
 			<Directories Name="UsePackages">False</Directories>
 		</Directories>
diff --git a/X2XMLDataBindingCmdLine.cfg b/X2XMLDataBindingCmdLine.cfg
index 8a733fd..cfeaedd 100644
--- a/X2XMLDataBindingCmdLine.cfg
+++ b/X2XMLDataBindingCmdLine.cfg
@@ -35,6 +35,7 @@
 -N0"Lib"
 -LE"C:\Documents and Settings\PsychoMark\My Documents\Borland Studio Projects\Bpl"
 -LN"C:\Documents and Settings\PsychoMark\My Documents\Borland Studio Projects\Bpl"
+-DmadExcept
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE
 -w-UNSAFE_CAST
diff --git a/X2XMLDataBindingCmdLine.dpr b/X2XMLDataBindingCmdLine.dpr
index 217299a..2ac3810 100644
--- a/X2XMLDataBindingCmdLine.dpr
+++ b/X2XMLDataBindingCmdLine.dpr
@@ -1,12 +1,16 @@
 program X2XMLDataBindingCmdLine;
 
 uses
+  madExcept,
+  madLinkDisAsm,
+  madListHardware,
+  madListProcesses,
+  madListModules,
   ActiveX,
   SysUtils,
   DelphiXMLDataBindingGenerator in 'Units\DelphiXMLDataBindingGenerator.pas',
   XMLDataBindingGenerator in 'Units\XMLDataBindingGenerator.pas',
-  XMLDataBindingHelpers in 'Units\XMLDataBindingHelpers.pas',
-  xml_Offerte in 'F:\XTxXSD\Output\xml_Offerte.pas';
+  XMLDataBindingHelpers in 'Units\XMLDataBindingHelpers.pas';
 
 begin
   CoInitialize(nil);