当前位置:学Delphi网文档资料技术资料其他

Delphi读取和写入utf-8编码格式的文件

减小字体 增大字体 作者:佚名  来源:不详  发布时间:2011-01-25 11:03:06

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

Tags:

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论

广告位置B