! Exclude AnsiString support if compiling with NEXTGEN compiler.

OmniXML.inc

@@ -2,6 +2,8 @@
   {$DEFINE UNICODE}
 {$ENDIF}
 
+{$DEFINE OmniXML_SupportAnsiStrings}
+
 {$IFDEF CONDITIONALEXPRESSIONS}
 
   {$IF Declared(CompilerVersion) and (CompilerVersion >= 25.0)}
@@ -33,6 +35,10 @@
     {$DEFINE OmniXML_Unicode}
   {$ENDIF}  // UNICODE
 
+  {$IFDEF NEXTGEN}
+    {$UNDEF OmniXML_SupportAnsiStrings}
+  {$ENDIF NEXTGEN}
+
 {$ENDIF}  // CONDITIONALEXPRESSIONS
 
 {$I OmniXML_JEDI.inc}

OmniXMLUtils.pas

@@ -154,6 +154,10 @@ interface
   {$IFEND}
 {$ENDIF}
 
+{$IFDEF NEXTGEN}
+  {$DEFINE NoVCL}
+{$ENDIF NEXTGEN}
+
 uses
 {$IFDEF MSWINDOWS}
   Windows,
@@ -497,21 +501,25 @@   EOmniXMLUtils = class(Exception);
   function XMLLoadFromString(xmlDocument: IXMLDocument;
     const xmlData: XmlString): boolean;
 
+ {$IFDEF OmniXML_SupportAnsiStrings}
   {:Load XML document from an ansi string.
   }
   function XMLLoadFromAnsiString(xmlDocument: IXMLDocument;
     const xmlData: AnsiString): boolean;
+ {$ENDIF OmniXML_SupportAnsiStrings}
 
   {:Save XML document to a wide string.
   }
   function XMLSaveToString(xmlDocument: IXMLDocument;
     outputFormat: TOutputFormat = ofNone): XmlString;
 
+ {$IFDEF OmniXML_SupportAnsiStrings}
   {:Save XML document to an ansi string, automatically adding UTF8 processing
     instruction if required.
   }
   function XMLSaveToAnsiString(xmlDocument: IXMLDocument;
     outputFormat: TOutputFormat = ofNone): AnsiString;
+ {$ENDIF OmniXML_SupportAnsiStrings}
 
   {:Load XML document from a stream.
   }
@@ -2496,6 +2504,7 @@ function XMLLoadFromString(xmlDocument: IXMLDocument;
   Result := xmlDocument.LoadXML(xmlData);
 end; { XMLLoadFromString }
 
+{$IFDEF OmniXML_SupportAnsiStrings}
 {:@param   xmlDocument XML document.
   @param   xmlData     XML document, stored in the string.
   @returns True if xmlData was successfully parsed and loaded into the
@@ -2512,6 +2521,7 @@ function XMLLoadFromAnsiString(xmlDocument: IXMLDocument;
     Result := XMLLoadFromStream(xmlDocument, sStr);
   finally FreeAndNil(sStr); end;
 end; { XMLLoadFromString }
+{$ENDIF OmniXML_SupportAnsiStrings}
 
 {:@param   xmlDocument  XML document.
   @param   outputFormat XML document formatting.
@@ -2545,6 +2555,7 @@ function XMLSaveToString(xmlDocument: IXMLDocument;
 {$ENDIF USE_MSXML}
 end; { XMLSaveToString }
 
+{$IFDEF OmniXML_SupportAnsiStrings}
 {:@param   xmlDocument  XML document.
   @param   outputFormat XML document formatting.
   @returns Contents of the XML document, stored in the string.
@@ -2561,6 +2572,7 @@ function XMLSaveToAnsiString(xmlDocument: IXMLDocument;
     Result := AnsiString(sStr.DataString);
   finally FreeAndNil(sStr); end;
 end; { XMLSaveToString }
+{$ENDIF OmniXML_SupportAnsiStrings}
 
 {:@param   xmlDocument XML document.
   @param   xmlStream   Stream containing XML document.