[Instantobjects-cvscommit] SF.net SVN: instantobjects:[814] trunk/Source/Brokers/XML/InstantXML.pas

[<na...@us...>]

Revision: 814
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=814&view=rev
Author:   nandod
Date:     2009-08-05 11:44:58 +0000 (Wed, 05 Aug 2009)

Log Message:
-----------
- unused routine.

Modified Paths:
--------------
    trunk/Source/Brokers/XML/InstantXML.pas

Modified: trunk/Source/Brokers/XML/InstantXML.pas
===================================================================
--- trunk/Source/Brokers/XML/InstantXML.pas	2009-08-05 10:57:00 UTC (rev 813)
+++ trunk/Source/Brokers/XML/InstantXML.pas	2009-08-05 11:44:58 UTC (rev 814)
@@ -1182,17 +1182,6 @@
 end;
 {$ENDIF}
 
-function RemoveXmlDeclaration(const xmlString: string): string;
-var
-  nPos: Integer;
-begin
-  nPos := Pos('<?xml', xmlString);
-  if nPos > 0 then
-    Result := Copy(xmlString, Pos('?>', xmlString) + 2, maxint)
-  else
-    Result := xmlString;
-end;
-
 {$IFDEF UNICODE}
 function TXMLFilesAccessor.LoadInstantObjectFromXmlFile(
   const AObject: TInstantObject; const AObjectId, AFileName: string): Boolean;