Delphi读写UTF-8、Unicode格式文本文件

在研究PvPGN时发现conf配置文件一些为UTF-8和Unicode格式，这样便可良好的支持多语言，从网上查阅资料后，将读写UTF-8、Unicode文件写了几个最精简的函数，更新后加了是否写文件头的功能，以适应更多需要，注意函数未加防错保护。

参数说明：f文件名、s写入或读取的文件内容、hs文件头、b是否读写文件头。

UTF-8文件写入函数
程序代码 程序代码
procedure SaveUTF(f:string;s:string;b:boolean=true);
var
  ms:TMemoryStream;
  hs:String;
begin
  if s='' then exit;
  ms:=TMemoryStream.Create;
  if b then begin
    hs:=#$EF#$BB#$BF;
    ms.Write(hs[1],3);
  end;
  s:=AnsiToUtf8(s);
  ms.Write(s[1],Length(s));
  ms.Position:=0;
  ms.SaveToFile(f