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获取当前计算机所有盘符

Delphi tstringlist stringlist的特殊用法

Delphi memo1删除前n行

Delphi webbrowser1遍历网页中的图片

Delphi webbrowser 查找对话框

Delphi 全盘搜索指定文件

Delphi xe6 for android 让手机震动

Delphi 的tjpegimage跟image区别

Delphi下遍历文件夹下所有文件的递归算法

选择 Delphi 的 9 条理由

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...