转：Delphi UTF8文件读写操作

最新推荐文章于 2024-09-22 09:08:30 发布

lanyus

最新推荐文章于 2024-09-22 09:08:30 发布

阅读量1.4k

点赞数 1

分类专栏： DELPHI编程文章标签： linq p2p c#

本文链接：https://blog.csdn.net/lanyus/article/details/123540690

版权

DELPHI编程专栏收录该内容

71 篇文章 1 订阅

订阅专栏

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 以前

// 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;
end;

// UTF8无BOM
procedure SaveUTF8File(AContent:string;AFileName: string);
var
sFile:TFileStream;
utf8Bytes: string;
s: string;
begin
sFile:=TFileStream.Create(AFileName,fmCreate);
utf8Bytes:= UTF8Encode(AContent);
sFile.Write(s[1],Length(s));
sFile.Write(utf8Bytes[1],Length(utf8Bytes));
sFile.Free;