在delphi 2010里把memo1里的中文保存为utf8格式,下面的方法能成功不会出现乱码

var
  F : Integer;
  EncodeFlag : array [0..2] of Byte;
  s : UTF8String;
begin
  EncodeFlag[0] := $ef;
  EncodeFlag[1] := $bb;
  EncodeFlag[2] := $bf;
  (**************************************************
   ansi                               没有标记
   Unicode                            $FF $FE
   Unicode big endian                 $FE $FF
   UTF-8                              $EF $BB $BF
  **************************************************)
  F := FileCreate('C:\utf8.txt');
  FileSeek(F,0,0);
  FileWrite(F,EncodeFlag,Length(EncodeFlag));
  s := AnsiToUtf8(Memo1.TEXT);
  FileWrite(F,s[1],Length(s));
  FileClose(F);
end;