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

将来也就如此

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

将来也就如此

将来也就如此

将来也就如此

问题已解决
..................
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

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