QuickReport里中文折行的解决办法，请初学者关注！(111分)

找一个带源码的QR，我是用QR3.5 for D6试验的，别的版本应该也可以，您可以试试看
第一步：
在.../Delphi6/lib目录下，找到qrctrls.dcu，删除之或改名，将.../Delphi6/quickrpt
目录下的qrctrls.pas和qrdefs.inc两个文件copy到.../Delphi6/lib目录下，然后将
qrdefs.inc中的
//{$DEFINE VER100}
一句改为
{$DEFINE VER100}
第二步：
然后在qrctrls.pas中找到TQRCustomLabel.FormatLines过程，将其修改如下：
procedure TQRCustomLabel.FormatLines;
var
I, J : integer;
NewLine : string;
LineFinished : boolean;
HasParent : boolean;
MaxLineWidth : integer;
AAlignment: TAlignment;
function aLineWidth(Line : string) : integer;
begin
if HasParent then
result := Muldiv(Longint(ParentReport.TextWidth(Font, Line)),Zoom,100)
else
Result := Canvas.TextWidth(Line);
end;

procedure FlushLine;
begin
FFormattedLines.Add(NewLine);
NewLine := '';
end;

procedure AddWord(aWord : string);
//{$ifdef ver100}
var
S: string;
//{$endif}
begin
if aLineWidth(NewLine + aWord) > Width then
begin
if NewLine = '' then
begin
//{$ifdef ver100}
if SysLocale.FarEast then
begin
while truedo
begin
if (aWord[1] in LeadBytes) and (Length(aWord) > 1) then
S := copy(aWord, 1, 2)
else
S := copy(aWord, 1, 1);
if aLineWidth(NewLine + S) < Width then
begin
NewLine := NewLine + S;
Delete(aWord, 1, Length(S));
end
else
Break;
end;
end
else
while aLineWidth(NewLine + copy(aWord, 1, 1)) < Widthdo
begin
NewLine := NewLine + copy(aWord, 1, 1);
Delete(aWord, 1, 1);
end;
//{$else
}
// while aLineWidth(NewLine + copy(aWord, 1, 1)) < Widthdo
// begin
// NewLine := NewLine + copy(aWord, 1, 1);
// Delete(aWord, 1, 1);
// end;
//{$endif}
aWord := '';
end;
FlushLine;
if aLineWidth(aWord) > Width then
begin
if NewLine = '' then
begin
if Width = 0 then
aWord := ''
else
while aLineWidth(aWord) > Widthdo
//{$ifdef ver100}
if ByteType(aWord, Length(aWord)) = mbTrailByte then
Delete(aWord, Length(aWord)-1, 2)
else
//{$endif}
Delete(aWord, Length(aWord), 1);
end;
NewLine := aWord;
FlushLine;
aWord := '';
end;
if not WordWrap then
begin
aWord := '';
LineFinished := true;
end;
end;
NewLine := NewLine + aWord;
end;

procedure AddLine(Line : string);
var
aPos : integer;
begin
while pos(#10, Line) > 0do
Delete(Line, Pos(#10, Line), 1);
aPos := pos(#13, Line);
if aPos > 0 then
begin
repeat
AddLine(copy(Line, 1, aPos - 1));
Delete(Line, 1 , aPos);
aPos := pos(#13, Line);
until aPos = 0;
AddLine(Line);
end else
begin
J := 0;
NewLine := '';
LineFinished := false;
if AutoSize then
begin
NewLine := Line;
FlushLine;
LineFinished := True;
end else
begin
while (J < Length(Line)) and (Length(Line) > 0)do
begin
repeat
//{$ifdef ver100}
begin
inc(J);
if Line[J] in LeadBytes then
begin
inc(J);
break;
end;
end;
//{$else
}
// inc(J)
//{$endif}
until (Line[J] in BreakChars) or (J >= Length(Line));
AddWord(copy(Line, 1, J));
Delete(Line, 1, J);
J := 0;
end;
if not LineFinished then
FlushLine;
end;
end;
end;

procedure FormatFromCaption;
begin
AddLine(FPrintCaption);
if not UpdatingBounds and HasParent then
begin
UpdatingBounds := true;
if Height < (longint(ParentReport.TextHeight(Font, 'W') * Zoom div 100) + 1) then
Height := (longint(ParentReport.TextHeight(Font, 'W')) * Zoom div 100) + 1;
UpdatingBounds := false;
end
end;

procedure FormatFromStringList;
var
J : integer;
begin
if (FLines.Count <> 0) then
begin
if AutoSize then
FFormattedLines.Assign(FLines)
else
for J := 0 to FLines.Count - 1do
AddLine(FLines[J]);
end else
if csDesigning in ComponentState then
begin
FCaption := Name;
FormatFromCaption;
FCaption := '';
end;
end;

begin
if Parent <> nil then
begin
if assigned(FFormattedLines) then
FFormattedLines.Clear
else
FFormattedLines := TStringList.Create;
HasParent := ParentReport <> nil;
LineFinished := false;
if CaptionBased then
FormatFromCaption
else
FormatFromStringList;
if AutoSize and (not UpdatingBounds) and HasParent then
begin
MaxLineWidth := 0;
for I := 0 to FFormattedLines.Count - 1do
if aLineWidth(FFormattedLines) > MaxLineWidth then
MaxLineWidth := aLineWidth(FFormattedLines);
if Frame.DrawLeft then
MaxLineWidth := MaxLineWidth + Frame.Width;
if Frame.DrawRight then
MaxLineWidth := MaxLineWidth + Frame.Width;
UpdatingBounds := true;
AAlignment := Alignment;
// {$ifdef ver110}
if UseRightToLeftAlignment then
ChangeBiDiModeAlignment(AAlignment);
// {$endif}
case AAlignment of
taCenter : Left := Left + ((Width - MaxLineWidth) div 2);
taRightJustify : Left := Left + Width - MaxLineWidth;
end;
Width := MaxLineWidth;
if (FFormattedLines.Count = 0) and (csDesigning in ComponentState) then
Height := (longint(ParentReport.TextHeight(Font, 'W')) * Zoom div 100) + 1;
if (Height < (longint(ParentReport.TextHeight(Font, 'W') * Zoom div 100) + 1)) then
Height := (longint(ParentReport.TextHeight(Font, 'W')) * Zoom div 100) + 1;
UpdatingBounds := false;
end;
end;
do
neFormat := true;
end;

呵呵，其实就是加几个“//”啦。
如果还不行，将borland目录下所有的qrctrls.dcu都删掉试试。其实应该做完第一步就
行了，但是我在QR3.5中试验不成功，不知道别的版本如何，可以的话，请说一声吧。
Good Luck ！

用 QR3.5就可以

QR3。06早就解决这个问题了，您还瞎忙啥呀，歇息下吧？^_^

呵呵，主要是最近看了好几个帖子问这个问题，也有不少人来信找我
要QR306，因此就随手发了个贴，题目也写清楚了，针对初学者而已嘛
本意是减少一些同类问题的重复出现，也没希望赢得掌声。如果给各位
浏览带来不便，谨致歉意。 []
反正还有分嘛，权当送分亦可，好歹也为人民做点贡献。[]
to chinausa:
我的QR3.5不行呢。 []

to 吴剑明
奇怪的是3.06以后的3.07,3.08等反倒不能折行了，毛病可能就出在liu斑竹注释那几行

所以就从来不用QR了。：）

请问那儿可以下载到QR3.06,是否能给我E-MAIL一份,我的地址是:yeyuzy@163.net。

http://007.myrice.com
3.05, 3.06, 3.07, 3.08 都有。

写错 3.06

用fastreport

我安装QR3.5 for D5怎么不行,请问要什么步骤？

to hzlinf: 你照着上面改了吗？

我原来装的是3.06，再装3.5的后，运行时出现说QRreport版本不对的错误，我是指安装QR3.5，需要什么步骤或装完后需要什么设置。

to wjs:什么你提供的网站不能下载!!!

to wjs:什么你提供的网站不能下载!!!
wjs 是啊我也是

侠客行为，钦佩！这些正是我所需要的，收藏，谢谢！

谁有3.06for d6.0 或者是网站

谁有3.06for d6.0 的网址

我试过了,在D5,D6中都行,用QR3.5,要考一个别的版本的
qrdefs.inc

我一直用ReportBuilder , 但它也有汉字折行问题, 即使是最新的6.02版中仍有。[]
不过我改了它的源代码后能够解决问题， 只加不到5行代码而已。
总的来说， ReportBuilder是我的最爱。[]