From ce60932a213055ddd65b43eaea00505056b31c03 Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Mon, 14 Oct 2013 15:12:39 +0000
Subject: [PATCH] LoadFromString function added to the databinding functions
 added bin folder use bin and lib folder in project settings

---
 Units/DelphiXMLDataBindingResources.pas | 14 ++++++++++++++
 X2XMLDataBinding.dproj                  |  6 +++++-
 2 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/Units/DelphiXMLDataBindingResources.pas b/Units/DelphiXMLDataBindingResources.pas
index a6d2ad7..7d33faa 100644
--- a/Units/DelphiXMLDataBindingResources.pas
+++ b/Units/DelphiXMLDataBindingResources.pas
@@ -45,6 +45,7 @@ const
   DocumentFunctionsInterface      = '  function Get%<Name>:s(ADocument: XMLIntf.IXMLDocument): IXML%<Name>:s;'  + CrLf +
                                     '  function Load%<Name>:s(const AFileName: String): IXML%<Name>:s;'         + CrLf +
                                     '  function Load%<Name>:sFromStream(AStream: TStream): IXML%<Name>:s;'      + CrLf +
+                                    '  function Load%<Name>:sFromString(const AString: String): IXML%<Name>:s;' + CrLf +
                                     '  function New%<Name>:s: IXML%<Name>:s;'                                   + CrLf;
 
   DocumentFunctionsImplementation = 'function Get%<Name>:s(ADocument: XMLIntf.IXMLDocument): IXML%<Name>:s;'  + CrLf +
@@ -67,6 +68,19 @@ const
                                     '  Result  := Get%<Name>:s(doc);'                                         + CrLf +
                                     'end;'                                                                    + CrLf +
                                     ''                                                                        + CrLf +
+                                    'function Load%<Name>:sFromString(const AString: String): IXML%<Name>:s;' + CrLf +
+                                    'var'                                                                     + CrLf +
+                                    '  stream: TStringStream;'                                                + CrLf +
+                                    ''                                                                        + CrLf +
+                                    'begin'                                                                   + CrLf +
+                                    '  stream := TStringStream.Create(AString);'                              + CrLf +
+                                    '  try'                                                                   + CrLf +
+                                    '    Result  := Load%<Name>:sFromStream(stream);'                         + CrLf +
+                                    '  finally'                                                               + CrLf +
+                                    '    FreeAndNil(stream);'                                                 + CrLf +
+                                    '  end;'                                                                  + CrLf +
+                                    'end;'                                                                    + CrLf +
+                                    ''                                                                        + CrLf +
                                     'function New%<Name>:s: IXML%<Name>:s;'                                   + CrLf +
                                     'begin'                                                                   + CrLf +
                                     '  Result := NewXMLDocument.' + DocumentBinding                           + CrLf +
diff --git a/X2XMLDataBinding.dproj b/X2XMLDataBinding.dproj
index 2f78b13..2ee5776 100644
--- a/X2XMLDataBinding.dproj
+++ b/X2XMLDataBinding.dproj
@@ -5,7 +5,7 @@
     <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
     <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
     <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
-    <DCC_DependencyCheckOutputName>X2XMLDataBinding.exe</DCC_DependencyCheckOutputName>
+    <DCC_DependencyCheckOutputName>bin\X2XMLDataBinding.exe</DCC_DependencyCheckOutputName>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
     <Version>7.0</Version>
@@ -19,6 +19,10 @@
     <Version>7.0</Version>
     <DCC_MapFile>3</DCC_MapFile>
     <DCC_Define>DEBUG</DCC_Define>
+    <DCC_ExeOutput>bin</DCC_ExeOutput>
+    <DCC_DcuOutput>Lib</DCC_DcuOutput>
+    <DCC_ObjOutput>Lib</DCC_ObjOutput>
+    <DCC_HppOutput>Lib</DCC_HppOutput>
   </PropertyGroup>
   <ProjectExtensions>
     <Borland.Personality>Delphi.Personality</Borland.Personality>