• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

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

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

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

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;

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;

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;

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;




鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
matlab 相关性分析发布时间:2022-07-18
下一篇:
曾风靡全球的 Delphi,要日薄西山了?发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap