本文整理自网络,侵删。
const UTF8BOM: array[0..2] of Byte = ($EF, $BB, $BF);var UTF8Str: UTF8String; FS: TFileStream;begin UTF8Str := UTF8Encode(Memo1.Text);
FS := TFileStream.Create('C:\path to\file.txt', fmCreate); try FS.WriteBuffer(UTF8BOM[0], SizeOf(UTF8BOM)); FS.WriteBuffer(PAnsiChar(UTF8Str)^, Length(UTF8Str)); finally FS.Free; end;end;
相关阅读 >>
Delphi tstringlist stringlist的特殊用法
更多相关阅读请进入《Delphi》频道 >>