Delphi txt编码互转 ANSI Utf-8

本文整理自网络，侵删。

 
uses System.IOUtils;

procedure ConvertFileEncoding(const SourceFileName: String; const SourceEncoding: TEncoding;
  const TargetFileName: String; TargetEncoding: TEncoding);
begin
  TFile.WriteAllText(
    TargetFileName,
    TFile.ReadAllText(SourceFileName, SourceEncoding),
    TargetEncoding);
end;



procedure TForm1.Button1Click(Sender: TObject);
var
  txtANSI: TEncoding;
  Utf8: TEncoding;
begin
  txtANSI := TEncoding.GetEncoding(54936);
  Utf8 := TEncoding.UTF8;
  ConvertFileEncoding('123.txt', txtANSI, '456.txt', Utf8);

end;

procedure TForm1.Button2Click(Sender: TObject);
var
  txtANSI: TEncoding;
  Utf8: TEncoding;
  GB2312: TEncoding;
begin
  txtANSI := TEncoding.GetEncoding(65001);
  Utf8 := TEncoding.UTF8;
  GB2312 := TEncoding.ANSI;
  ConvertFileEncoding('456.txt', txtANSI, '123.txt', GB2312);
end;

 

相关阅读 >>

Delphi 获取邮箱中的用户名

解决 Delphi 程序在不同操作系统中 shellexecute 调用 chrome.exe 偶尔无效的问题

Delphi settextbuf

Delphi fdconnection自动重连

Delphi-改进获取文件md5 hash方法

Delphi getdrivetypea() 查看驱动器类型

在Delphi中基于内容检测图片格式（非扩展名）

Delphi 判断文件是否存在

Delphi 如何在toolbar中的toolbutton上显示文字

如何让dbgrid显示序号？

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi txt编码互转 ANSI Utf-8