在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;