保存为UTF-8格式的Txt文件

procedure SaveUTF8File(const AFileName: string; AListText: TStringList);
var
  Latin1Encoding: TEncoding;
begin
  Latin1Encoding := TEncoding.GetEncoding(CP_UTF8);
  try
    AListText.SaveToFile(AFileName,Latin1Encoding);
  finally
    Latin1Encoding.free;
  end;
end;