论坛 › Delphi交流 › 需要导出数据为txt文本，编码类型为utf8

将来也就如此 发表于 2018-12-25 10:13:42

需要导出数据为txt文本，编码类型为utf8

从数据库里查出数据之后，导成txt格式，文本的类型怎么在导出的时候转换成utf-8的编码类型。。。。。。

将来也就如此 发表于 2018-12-25 10:17:25

{:10_280:}{:10_280:}{:10_280:}{:10_280:}{:10_280:}{:10_280:}

将来也就如此 发表于 2018-12-25 10:39:45

{:10_258:}{:10_258:}{:10_258:}{:10_258:}{:10_258:}

将来也就如此 发表于 2018-12-25 11:11:40

问题已解决
..................
var    f: TextFile;
begin
AssignFile(f, 'test.txt');
Rewrite(f);
write(f, #$EF+#$BB+#$BF); // UTF-8 BOM，关键就是写入这个UTF-8的BOM, BOM 是 Bype Order Mark 的缩写。
writeln(f, UTF8Encode('中文'));
CloseFile(f);

cplus 发表于 2019-8-17 18:49:12

楼主，问题解决了，请结帖！

查看完整版本: 需要导出数据为txt文本，编码类型为utf8