Fastreport的换行问题(100分)

FASTREPORT中MEMO的wordwrap设为True,使文本自动换行，但当最后一个字为中文时总是
出现乱码。
怎样才能使最后的字为中文且剩下文本区不足两格时自动换行，避免出现乱码

来自：蔓草, 时间：2002-1-13 14:38:00, ID：854149
主要改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

或者使用 FR2.47 版，2.47已没这个问题