Delphi 10 UTF8文件读写

最新推荐文章于 2019-10-07 19:59:42 发布

虚幻真实

最新推荐文章于 2019-10-07 19:59:42 发布

阅读量2.4k

点赞数 2

分类专栏： Delphi

本文链接：https://blog.csdn.net/arthurde/article/details/86716800

版权

Delphi 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

网上找了好多，都是错的。

什么TStrings，Memo，S := #$EF#$BB#$BF;

存出来都是错的。16进制一看都不对。

还是用流靠谱。

function LoadUTF8File(FileName: string): string;
var
  SS: TStringStream;
begin
  SS := TStringStream.Create('', TEncoding.UTF8);
  SS.LoadFromFile(FileName);
  Result := SS.DataString;
end;


procedure SaveUTF8File(Content:string;FileName: string);
var
  SS: TStringStream;
begin
  SS := TStringStream.Create('', TEncoding.UTF8);
  SS.WriteString(Content);
  SS.SaveToFile(FileName);
  SS.Free;
end;