请问fastreport242的中文换行问题(100分)

  • 主题发起人 主题发起人 doit
  • 开始时间 开始时间
D

doit

Unregistered / Unconfirmed
GUEST, unregistred user!
该如何修改源代码,才能解决这个问题。
我查了一下有关的问题,可能只有下汉化的了,但我想知道如何修改代码
可以解决这个问题,以后有新版本出来了,也会自己改。
 
主要改fr_class.pas中的wrapline过程,其中有一段:
else
if s[last] = ' ' then
OutLine(Copy(s, beg, last - beg)) else
OutLine(Copy(s, beg, last - beg + 1));//造成乱码的根本原因
改为
else
if s[last] = ' ' then
OutLine(Copy(s, beg, last - beg)) else
if ByteType(s,last) = mbLeadByte then
//判断是否是汉字字节
OutLine(Copy(s, beg, last - beg ))
else
OutLine(Copy(s, beg, last - beg + 1));
后面的
LoopPos := cur;
beg := last + 1;
last := beg;
要改为:
LoopPos := cur;
if ByteType(s,last) = mbLeadByte then

begin
beg := last ;
last := beg;
end
else
begin
beg := last + 1;
last := beg;
end;

参照http://tian.yeah.net的 fastreport2.41c修改
 
谢谢了,
有了你的帮助使我受益匪浅
 
后退
顶部