在有些编辑程序中只须把文本文件的存贮格式改为UTF-8即可。(以editplus为例，document-->encoding type-->UTF-8，保存即可。windows的记事本也可以的。)

    但是Delphi编写的程序中如何保存文本文件的编码为UTF-8？

个人认为最好的一个函数。

function WriteUTF8String2File(filename: string; AnsiS: AnsiString):Boolean;
var
  wf: Array[0..2] of Char;
  us: UTF8String;
  f: TFileStream;
begin
  Result:= false;
  wf[0]:=#$EF;
  wf[1]:=#$BB;
  wf[2]:=#$BF;
  f:= TFileStream.Create(filename, fmCreate);
  try
    f.Write(wf, 3);
    us:=AnsiToUtf8(AnsiS);
    f.Write(PChar(us)^, length(us));
    Result := true;
  finally
    f.Free;
   end;
end;