S
SevenOrient
Unregistered / Unconfirmed
GUEST, unregistred user!
1。我首先判断一行能容纳多少个汉字
2。然后把要打印的内容都分别分成几段，
3，折行
4。可是要打印的是汉字，
举例子：要打印的字符串：“str:='A中华人民共和国'”一行只能打3个汉字，6个字节；
var a,i:integer;
begin
a:=(Length(Str) mod 6) +1
for i:=0 to a-1 do begin
printer.canvas.textout(0,i*10,copy(str,i*6+1,6));//这时候有时候把汉字分割开，
//成了乱码了！！
end;
end;
怎么不出现乱码呢？
2。然后把要打印的内容都分别分成几段，
3，折行
4。可是要打印的是汉字，
举例子：要打印的字符串：“str:='A中华人民共和国'”一行只能打3个汉字，6个字节；
var a,i:integer;
begin
a:=(Length(Str) mod 6) +1
for i:=0 to a-1 do begin
printer.canvas.textout(0,i*10,copy(str,i*6+1,6));//这时候有时候把汉字分割开，
//成了乱码了！！
end;
end;
怎么不出现乱码呢？