TStringList ohne BOM speichern?

[MaBuSE]

Zitat von fillibuster:

gibt es eine einfache Möglichkeit (D2010) das BOM nicht mitzuschreiben? Meine erstellten StringListen speichere ich so:
sl.SaveToFile(savepath + 'muster.txt',TEncoding.UTF8);

TStrings hat eine Eigenschaft WriteBOM.

Per Default ist die auf True.

Beisp:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.WriteBOM := True;
  memo1.Lines.SaveToFile('z:\temp\1.txt', TEncoding.UTF8);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.WriteBOM := False;
  Memo1.Lines.SaveToFile('z:\temp\2.txt', TEncoding.UTF8);
end;