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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.041053056716919 seconds