Delphi UTF8文件读写操作

最新推荐文章于 2020-12-21 11:54:13 发布

左眼看成爱

最新推荐文章于 2020-12-21 11:54:13 发布

阅读量771

点赞数

分类专栏： Delphi 文章标签： uft-8 文件读写

本文链接：https://blog.csdn.net/wh445306/article/details/102324641

版权

本文介绍了如何在Delphi 2010及其以前版本中进行UTF-8格式的文件读写操作，详细阐述了相关步骤和注意事项。

摘要由CSDN通过智能技术生成

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;

Delphi 2010 以前版本Utf-8保存文件

// UTF8 BOM
procedure SaveUTF8FileB(AContent:string;AFileName: string);
var ffileStream:TFileStream;
        futf8Bytes: string;
       S: string;
begin
       ffileStream:=TFileStream.Create(AFileName,fmCreate);
       futf8Bytes:= UTF8Encode(AContent);
       S:=#$EF#$BB#$BF;
       ffileStream.Write(S[1],Length(S));
       ffileStream.Write(futf8Bytes[1],Length(futf8Bytes));
       ffileStream.Free;
e