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


本文整理自网络,侵删。

 
读取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;

相关阅读 >>

Delphi实现win10下Delphi 10.3.1 inline hook 域名转向之internetconnecta

Delphi firemonkey应用程序中显示时隐藏虚拟键盘

Delphi 2009 泛型容器单元(generics.collections)[1]: tlist<t>

Delphi 一个中英文记录Delphi实现

Delphi shellexecute 发送邮件

Delphi application.processmessage作用

Delphi创建证书密钥库文件

Delphi中tinifile类 操作ini文件

Delphi webservice 中采用 tsoapattachment 传输文件

Delphi istream与tstream之间的相互转换

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...