求助用了crt后如何打中文

level 13

konata🔯 楼主

求助用了crt后如何打中文啊？

2015年12月28日 10点12分 1

level 12

Xero⚡12

用dos单元

2016年01月01日 05点01分 4

level 13

konata🔯 楼主

用过的加了crt后不行

2016年01月01日 08点01分 5

level 12

Xero⚡12

exec句。编一程序输出这句中文，命名为1.exe,主程序需要用中文时exec这个程序。

2016年01月01日 08点01分 6

level 13

konata🔯 楼主

楼主下载了pascal2.0.4，可以打中文了

2016年01月02日 08点01分 8

level 7

贴吧用户_QtG5y1W

加这个子程序就好了：
procedure zhongwen;
var f:text;
begin
assign(f,'abc.bat');
rewrite(f);
writeln(f,'@璐村惂鐢ㄦ埛_007b14N馃惥 ***');
writeln(f,'@没生气故意闹脾气 abc.bat');
close(f);
exec('abc.bat',''); clrscr;
end;

2020年05月01日 02点05分 9

level 1

robsean

program project1;
{$codepage UTF8}
begin
write('你好');
end.

2020年11月07日 06点11分 10