Delphi XE2: BOM-Problem

[PeterPanino]

Hallo!

Wenn ich das Dokument von TEmbeddedWB mit EmbeddedWB1.SaveToFile speichere, habe ich das Problem, dass die gespeicherte Datei im Format UTF16-LE vorliegt, was bei der Weiterverarbeitung Probleme erzeugt.

Um die Datei im UTF8-Format zu speichern, habe ich mir folgende kleine Routine geschrieben:

Delphi-Quellcode:

procedure SaveHTMLDocToFileUTF8(AWB: TEmbeddedWB; const AFile: string);
var
  slHTMLDoc: TStringList;  
begin
  slHTMLDoc := TStringList.Create;
  try
    AWB.SaveToStrings(slHTMLDoc);
    slHTMLDoc.SaveToFile(AFile, TEncoding.UTF8);
  finally
    slHTMLDoc.Free;
  end;
end;

Das funktioniert auch problemlos. Nur wird dabei immer ein UTF8-BOM am Anfang der Datei erzeugt, was ich vermeiden möchte, da es bei bei der Weiterverarbeitung stört.

Ich habe jetzt zwei Tage vergebens nach einer Lösung gesucht, um das Schreiben des BOM zu verhindern. Weiß jemand eine Lösung?