急急急急
functino aaa();
var
prntext:textfile;
begin
assignprn(prntext);
rewrite(prntext);
writeln(prntext,var_bodystr);
system.Close(prntext);
end;


上面的过程是用来打印一段格式化了的文本，但现在的情况是 ：打印出来的文本有个别字符是乱码！！而且相同的一个字居然有正常的有乱码的。

请问这是为什吗啊？ 把这段文字放在记事本里打时就正常。

[解决办法]
不支持unicode吧，只打印英文试试
[解决办法]
functino aaa(); 这样可以？
[解决办法]
第一感觉还是和编码有关系，在var_bodystr全部存英文，打印试一下