lazrepot报表memo中的中文换行乱码？

snb · 发表于 2015-4-28 21:42:22

报表上放一个memo，然后里面放一段中文，结果换行后所有行首的第一个中文都成了?

请教这个有无办法解决？
没有的话，有啥子报表是linux下能用的？

snb · 发表于 2015-4-28 22:47:18

参考下fastreport的乱码

主要改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

snb · 发表于 2015-4-28 22:48:00

lr_class.pas 3608行应该是问题关键。
今晚太困了，明天再搞

snb · 发表于 2015-4-29 11:27:51

procedure WrapLine(const s: String);
var
i, cur, beg, last, LoopPos: Integer;
WasBreak, CRLF: Boolean;
begin
CRLF := False;
LoopPos := 0;
for i := 1 to Length(s) do
if s[i] in [#10, #13] then
begin
CRLF := True;
break;
end;
last := 1; beg := 1;
if not CRLF and ((Length(s) <= 1) or (WCanvas.TextWidth(s) <= maxwidth)) then
OutLine(s + #1)
else
begin
cur := 1;
while cur <= Length(s) do
begin
if s[cur] in [#10, #13] then
begin
OutLine(Copy(s, beg, cur - beg) + #1);
while (cur < Length(s)) and (s[cur] in [#10, #13]) do Inc(cur);
beg := cur; last := beg;
if s[cur] in [#13, #10] then
Exit else
continue;
end;
if s[cur] <> ' ' then
if WCanvas.TextWidth(Copy(s, beg, cur - beg + 1)) > maxwidth then
begin
WasBreak := False;
if (Flags and flWordBreak) <> 0 then
begin
i := cur;
while (i <= Length(s)) and not (s[i] in spaces) do
Inc(i);
b := BreakWord(Copy(s, last + 1, i - last - 1));
if Length(b) > 0 then
begin
i := 1;
cur := last;
while (i <= Length(b)) and (WCanvas.TextWidth(Copy(s, beg, last - beg + 1 + Ord(b[i])) ) <= maxwidth) do
begin
WasBreak := True;
cur := last + Ord(b[i]);
Inc(i);
end;
last := cur;
end;
end
else
if last = beg then last := cur;
if WasBreak then
begin
if ByteType(s,last) = mbLeadByte then //Tian 2001.03
begin
OutLine(Copy(s, beg, last - beg ));
end
else If ByteType(s,last) = mbSingleByte then
begin
OutLine(Copy(s, beg, last - beg + 1));
end
else If ByteType(s,last) =mbTrailByte then
begin
OutLine(Copy(s, beg, last - beg +1));
end;
end
else if s[last] = ' ' then
OutLine(Copy(s, beg, last - beg))
else
OutLine(Copy(s, beg, last - beg + 1));
if ((Flags and flWordBreak) <> 0) and not WasBreak and (last = cur) then
if LoopPos = cur then
begin
beg := cur + 1;
cur := Length(s);
break;
end
else
LoopPos := cur;
if ByteType(s,last) = mbLeadByte then //Tian 2001.03
begin
beg := last ; last := beg;
end
else If ByteType(s,last) = mbSingleByte then
begin
beg := last + 1; last := beg;
end
else If ByteType(s,last) =mbTrailByte then
begin
beg := last+1 ; last := beg;
end;
end;
if s[cur] = ' ' then last := cur;
Inc(cur);
end;
if beg <> cur then OutLine(Copy(s, beg, cur - beg + 1) + #1);
end;
end;

复制代码

snb · 发表于 2015-4-29 11:29:04

将以上的代码替换掉lr_class.pas 里的同名函数，记得在lr_class.pas行首
const段添加 spaces: set of Char = [' ', '.', ',', '-'];

snb · 发表于 2015-4-29 11:30:05

现在看还是有点问题的，每行为偶数汉字时候没有什么问题，奇数时最后一个字不会显示或者只显示一半

clxer · 发表于 2015-4-29 15:45:47

用1.2.6没有这个问题

snb · 发表于 2015-4-29 15:56:14

clxer 发表于 2015-4-29 15:45
用1.2.6没有这个问题

是的，上午有人在群里提醒我了，然后下午装了1.2.6，发现正常，1.2.6下的代码如下：

procedure TfrMemoView.WrapMemo;
var
size, size1, maxwidth: Integer;
b: TWordBreaks;
WCanvas: TCanvas;
desc, aword: string;
procedure OutLine(const str: String);
var
n, w: Word;
begin
n := Length(str);
if (n > 0) and (str[n] = #1) then
w := WCanvas.TextWidth(Copy(str, 1, n - 1)) else
w := WCanvas.TextWidth(str);
{$IFDEF DebugLR_detail}
debugLn('Outline: str="%s" w/=%d w%%=%d',[copy(str,1,12),w div 256, w mod 256]);
{$ENDIF}
SMemo.Add(str + Chr(w div 256) + Chr(w mod 256));
Inc(size, size1);
end;
procedure WrapLine(const s: String);
var
i, cur, beg, last, len: Integer;
WasBreak, CRLF, IsCR: Boolean;
ch: TUTF8char;
begin
CRLF := False;
for i := 1 to Length(s) do
begin
if s[i] in [#10, #13] then
begin
CRLF := True;
break;
end;
end;
last := 1; beg := 1;
if not CRLF and ((Length(s) <= 1) or (WCanvas.TextWidth(s) <= maxwidth)) then
begin
OutLine(s + #1)
end else
begin
cur := 1;
Len := UTF8Desc(S, Desc);
while cur <= Len do
begin
Ch := UTF8Char(s, cur, Desc);
// check for items with soft-breaks
IsCR := Ch=#13;
if IsCR then
begin
//handle composite newline
ch := UTF8Char(s, cur+1, desc);
//dont increase char index if next char is LF (#10)
if ch<>#10 then
Inc(Cur);
end;
if Ch=#10 then
begin
OutLine(UTF8Range(s, beg, cur - beg, Desc) + #1);
//increase the char index since it's pointing to CR (#13)
if IsCR then
Inc(cur);
Inc(cur);
beg := cur;
last := beg;
Continue;
end;
if ch <> ' ' then
if WCanvas.TextWidth(UTF8Range(s, beg, cur - beg + 1, Desc)) > maxwidth then
begin
WasBreak := False;
if (Flags and flWordBreak) <> 0 then
begin
// in case of breaking in the middle, get the full word
i := cur;
while (i <= Len) and not UTF8CharIn(ch, [' ', '.', ',', '-']) do
begin
Inc(i);
if i<=len then
ch := UTF8Char(s, i, Desc);
end;
// find word's break points using some simple hyphenator algorithm
// TODO: implement interface so users can use their own hyphenator
// algorithm
aWord := UTF8Range(s, last, i - last, Desc);
if (FHyp<>nil) and (FHyp.Loaded) then
begin
try
b := FHyp.BreakWord(UTF8Lowercase(aWord));
except
b := '';
end;
end else
b := BreakWord(aWord);
// if word can be broken in many segments, find the last segment that
// fits within maxwidth
if Length(b) > 0 then
begin
i := 1;
while (i <= Length(b)) and
(WCanvas.TextWidth(UTF8Range(s, beg, last - beg + Ord(b[i]), Desc) + '-') <= maxwidth) do
begin
WasBreak := True;
cur := last + Ord(b[i]); // cur now points to next char after breaking word
Inc(i);
end;
end;
if (not WasBreak) and (FHyp<>nil) and FHyp.Loaded then
// if hyphenator was specified and is valid don't break
// words which hyphenator didn't break
else
// last now points to nex char to be processed
last := cur;
end
else
begin
if last = beg then
last := cur;
end;
if WasBreak then
begin
// if word has been broken, output the partial word plus an hyphen
OutLine(UTF8Range(s, beg, last - beg, Desc) + '-');
end else
begin
// output the portion of word that fits maxwidth
OutLine(UTF8Range(s, beg, last - beg, Desc));
// if space was found, advance to next no space char
while (UTF8Char(s, last, Desc) = ' ') and (last < Length(s)) do
Inc(last);
end;
beg := last;
end;
if UTF8CharIn(Ch, [' ', '.', ',', '-']) then
last := cur;
Inc(cur);
end;
if beg <> cur then
OutLine(UTF8Range(s, beg, cur - beg + 1, Desc) + #1);
end;
end;

复制代码

cp8001 · 发表于 2018-10-15 08:29:06

{2018.10.15  Lazarus1.8.4}
{LR_Class}
{3784 procedure WrapLine(const s: String); var 加入定义}
utf8Charlen:integer;
{3838 if ch <> ' ' then 行后插入}
begin
      if ord(ch)>=192 then {如果是多字节 UTF8，则第一字节大于192,UTF8CharacterLengthFast根据第一字节，返回UTF8字符字节数}
         utf8Charlen:= UTF8CharacterLengthFast(@ch)
         else
         utf8Charlen:=1;
{UTF8多字节字符，第一字节高位开始1的个数为字符占用字节数，>=192为多字节}
{函数UTF8CharacterLength要检测整个UTF8字符所占字节，ch为char,这里使用返回字节数总为1，}
{3839 if WCanvas.TextWidth(copy(s, beg, cur - beg + utf8Charlen{1})) > maxwidth then 改为 }
if WCanvas.TextWidth(copy(s, beg, cur - beg + utf8Charlen{1})) > maxwidth then
{bug出现在cur-beg+1这里。}
{如果是cur遇到3字节汉字刚好要换行时，当cur指向前2字节不可显示，WCanvas.TextWideth=0，}
{cur指向第3字节时，显示宽度不够，换行，第二行则从cur指向的第三字节打头，丢失了前2字节，字符不完整，被显示成?号}
{更改后的算法：遇到多字节UTF8字符第一字节时，copy将整个utf8字符截入测试宽度}
{3912 if Ch in [' ', '.', ',', '-'] then  行前插入 }
end;
{2018.10.15-------------------------------}

cp8001 · 发表于 2018-10-16 08:32:13

cp8001 发表于 2018-10-15 08:29
{2018.10.15 Lazarus1.8.4}
{LR_Class}
{3784 procedure WrapLine(const s: String); var 加入定义}

{20181016 Lazarus1.8.2}
//UTF8CharacterLengthFast非多字节字符首字节，返回值为1
//只需将LR_Class 3839行改为如下：
if WCanvas.TextWidth(copy(s, beg, cur - beg + UTF8CharacterLengthFast(ch))) > maxwidth then
{20181016--------------}

		自动登录	找回密码
密码			立即注册（注册审核可向QQ群索取）

lazrepot报表memo中的中文换行乱码？

RE: lazrepot报表memo中的中文换行乱码？

RE: lazrepot报表memo中的中文换行乱码？