Delphi读取和写入utf-8编码格式的文件

关注

转载最新推荐文章于 2026-02-15 02:45:05 发布 5.5k 阅读 AI 写同款· GEO 优化 ›

Python读取各种格式的txt文档（ANSI、Unicode、Unicode big endian、UTF-8等）有时候我们要读取txt文档，然后以中文的形式输出返回，但是有时候txt文档的保存格式为ANSI、Unicode等，这样读取出来的文本是乱码的。下面我们把txt文档另存为Unicode格式，然后读取 try: #打开txt文档 f = open('E:\\a file.txt','rb') #读取 r = f.read() print(r) f.close()... 阅读详情

读取UTF-8格式的文件内容

function LoadUTF8File(AFileName: string): string;
var ffileStream:TFileStream;
         fAnsiBytes: string;
         S: string;
begin
            ffileStream:=TFileStream.Create(AFileName,fmOpenRead);
            SetLength(S,ffileStream.Size);
            ffileStream.Read(S[1],Length(S));
            fAnsiBytes:= UTF8Decode(Copy(S,4,MaxInt));
           Result:= fAnsiBytes;
end;

写入UTF-8编码格式的文件
procedure SaveUTF8File(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;