Delphi读写UTF-8、Unicode格式文本文件

最新推荐文章于 2025-04-18 00:12:29 发布

众纳

最新推荐文章于 2025-04-18 00:12:29 发布

阅读量512

点赞数 1

本文链接：https://blog.youkuaiyun.com/weixin_44690195/article/details/144081089

版权

UTF-8

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;