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 下载一个jpg图片保存为bmp图片

Delphi xe 遍历指定数据库，清空各表记录

Delphi 建立最小的应用程序

Delphi xe 枚举指定目录及子目录下的所有文件

Delphi trim删除字符串首尾空格

Delphi fmx中获取窗口比例

Delphi 程序窗体最大化、组件居中显示代码

Delphi 调用外部 dll 中的函数(1. 早绑定)

Delphi获取系统字体列表

Delphi xe 横屏竖屏的管理

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

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