本文整理自网络,侵删。
procedure TForm1.Button1Click(Sender: TObject);var Outfile: TextFile;begin AssignFile(Outfile, 'test_chinese.txt', CP_UTF8); Rewrite(Outfile);
//This is the UTF-8 BOM Write(Outfile, #$FEFF);
Writeln(Outfile, '总结'); Writeln(Outfile, '°C'); CloseFile(Outfile);end;
相关阅读 >>
Delphi中通过tclientsocket获取公网(wan)ip地址
Delphi 2009 泛型容器单元(generics.collections)[4]: tdictionary<t>
Delphi 通过memorystream 传递image1数据
Delphi 用firedac获取 sql server错误文本信息
更多相关阅读请进入《Delphi》频道 >>