Delphi 如何将Memo或RichEdit保存为UTF 8文本文件？

本文整理自网络，侵删。

 
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 try except与try finally不同之处

Delphi memo加个prompttext

Delphi高效的byte转化sring 函数

Delphi 判断 文本文件 utf-8 bom头

idhttpserver允许跨域访问

Delphi 获取ie网址收藏夹

Delphi编程如何判断图片文件的真实类型？

Delphi xe5 android实现繁体字到简体字的转换函数

Delphi向当前窗口模拟键盘ctrl+v发送"粘贴"

Delphi删除目录及其子目录

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 如何将Memo或RichEdit保存为UTF 8文本文件？