读写UTF-8、Unicode文件

最新推荐文章于 2019-01-07 23:12:52 发布

weixin_30765319

最新推荐文章于 2019-01-07 23:12:52 发布

阅读量114

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/kfarvid/archive/2010/11/10/1873403.html

本文提供了用于处理UTF-8和Unicode文件的Delphi函数，包括读取和写入文件的方法，并支持文件头的使用。这些函数适用于多语言环境下的文件操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

conf配置文件一些为UTF-8和Unicode格式，这样便可良好的支持多语言，从网上查阅资料后，将读写UTF-8、Unicode文件写了几个最精简的函数，更新后加了是否写文件头的功能，以适应更多需要，注意函数未加防错保护。

参数说明：f文件名、s写入或读取的文件内容、hs文件头、b是否读写文件头。

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;

转载于:https://www.cnblogs.com/kfarvid/archive/2010/11/10/1873403.html