客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
UTF-8文件写入函数 程序代码 程序代码 procedure SaveUTF(f:string;s:string;b:boolean=true); var ms:TMemoryStream; hs:String; begin if s='' then exit; ms:=TMemoryStream.Create; if b then begin hs:=#$EF#$BB#$BF; ms.Write(hs[1],3); end; s:=AnsiToUtf8(s); ms.Write(s[1],Length(s)); ms.Position:=0; ms.SaveToFile(f); ms.Free; end; UtF-8文件读取函数 程序代码 程序代码 function LoadUTF(f:string;b:boolean=true):string; var ms:TMemoryStream; s,hs:string; begin Result:=''; if not FileExists(f) then exit; ms:=TMemoryStream.Create; ms.LoadFromFile(f); if b then begin SetLength(hs,3); ms.Read(hs[1],3); if hs<>#$EF#$BB#$BF then begin ms.Free; exit; end; SetLength(s,ms.Size-3); ms.Read(s[1],ms.Size-3); end else begin SetLength(s,ms.Size); ms.Read(s[1],ms.Size); end; Result:=Utf8ToAnsi(s); ms.Free; end; Unicode文件写入函数 程序代码 程序代码 procedure SaveUnicode(f:string;s:string;b:boolean=true); var ms:TMemoryStream; hs:string; ws:WideString; begin if s='' then exit; ms:=TMemoryStream.Create; if b then begin hs:=#$FF#$FE; ms.Write(hs[1],2); end; ws:=WideString(s); ms.Write(ws[1],Length(ws)*2); ms.Position:=0; ms.SaveToFile(f); ms.Free; end; Unicode文件读取函数 程序代码 程序代码 function LoadUnicode(f:string;b:boolean=true):string; var ms:TMemoryStream; hs:String; ws:WideString; begin Result:=''; if not FileExists(f) then exit; ms:=TMemoryStream.Create; ms.LoadFromFile(f); if b then begin SetLength(hs,2); ms.Read(hs[1],2); if hs<>#$FF#$FE then begin ms.Free; exit; end; SetLength(ws,(ms.Size-2) div 2); ms.Read(ws[1],ms.Size-2); end else begin SetLength(ws,ms.Size div 2); ms.Read(ws[1],ms.Size); end; Result:=AnsiString(ws); ms.Free; end; |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论