本文整理自网络,侵删。
演示环境为delphi xe2 与 vs 2015社区版
delphi方式1-传统方式var ffileStream:TFileStream; futf8Bytes: string; S: string;begin ffileStream:=TFileStream.Create(AFileName,fmCreate); futf8Bytes:= UTF8Encode(AContent); //S:=#$EF#$BB#$BF; //utf8 bom头 //ffileStream.Write(S[1],Length(S)); ffileStream.Write(futf8Bytes[1],Length(futf8Bytes)); ffileStream.Free;end;
delphi方式2-推荐方式var lst_s:TStrings ; s:UTF8String; .... lst_d.Add(s); lst_d.WriteBOM := False;//指定不带BOM lst_d.SaveToFile('G:\docs\utf8test.txt', TEncoding.UTF8);
c#代码//UTF-8(带BOM):writer = New StreamWriter(FilePathName, True, System.Text.UTF8Encoding.UTF8)
UTF-8(不带BOM):writer =New StreamWriter(FilePathName, True, New UTF8Encoding(False))
顺便吐槽一下 这个语言着色,不支持 delphi(pascal)也就算了毕竟过气了,c# (cs)怎么也不行呢。――――――――――――――――
原文链接:https://blog.csdn.net/chinawcs/article/details/89576989
相关阅读 >>
Delphi xe listbox 行高根据内容高度进行调速
Delphi xe5 android 开发实现手机打电话和发短信
Delphi firemonkey应用程序中显示时隐藏虚拟键盘
Delphi firedac 连接sql server一些要注意的地方
更多相关阅读请进入《Delphi》频道 >>