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瞬间消除无用托盘图标(刷新托盘)

Delphi iddecodermime 对图像编码base64解码成图像文件

Delphi 根据进程id获取程序ico图标

Delphi 拖动form上的图片，form一起动

decodedatetime：将一个tdatetime变量拆分成它的日期/时间 部分

Delphi strtoint 将“字符型”转换成“整数型”

Delphi dbgrid1查询只显示50条记录修改

Delphi 资源管理器套件

Delphi获取内存信息

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