C
c3411080
Unregistered / Unconfirmed
GUEST, unregistred user!
下面这段代码为什么打印出来都是乱码呢？打英文就没有问题，我想打中文的该怎么办呢
var
F: TextFile;
S: string;
begin
AssignFile(F, 'lpt1');
Rewrite(F);
writeln(F, '中国人民共和国');
CloseFile(F);
end;
var
F: TextFile;
S: string;
begin
AssignFile(F, 'lpt1');
Rewrite(F);
writeln(F, '中国人民共和国');
CloseFile(F);
end;
