himXML speichern mit BOM

[haentschman]

Hallöle...

Änderungen:
* BOM ist nun auch bei UTF8 Standard.
* wenn BOM nicht benötigt:

Delphi-Quellcode:

XML.Options := XML.Options + [xoDontWriteBOM];
...

Änderungen in himXML.pas ab Zeile 11817:

Delphi-Quellcode:

Procedure TXWriter.WriteBOM;
  Begin
    If (XMLEncodingData[_Encoding].BOM > '') and (not(xoDontWriteBOM in _Options)) Then Begin
      Flush;
      _Stream.WriteBuffer(XMLEncodingData[_Encoding].BOM[1],
        Length(XMLEncodingData[_Encoding].BOM));
      End;
    End;

PS: (AllowUTF8BOM: Boolean = False); wurde nie gesetzt...immer False.

...bitteschön.