当QRDBText显示的文本太长时常要设置为换行的样式显示，就是把Autosize改为False,Autostretch改为True;现在我要显示的字段是Varchar类型，值为“DIES作替NL7315-D6A“，但运行时我看到的是：DIES作替
D6A
不见“NL7315”几个字符,我把QRDBText的Width属性改大写有可看见下面的格式：
DIES作替NL73
D6A
这样还是少了几个字符，请问各位大虾是怎么回事，教教小弟怎样解决呀？
D6A
不见“NL7315”几个字符,我把QRDBText的Width属性改大写有可看见下面的格式：
DIES作替NL73
D6A
这样还是少了几个字符，请问各位大虾是怎么回事，教教小弟怎样解决呀？
本人很不喜欢QuickReport，因为其有太多问题，也太不灵活。但在开发过程中，还是无法避免接触到这种问题，特别是历史遗留下来的控件，几乎是不可能把那么多的报表去换成其他报表控件的。我把自己在改造一个项目中使用QuickReport的经验写出来，当然，有部分是从别的地方摘抄的，就一起整合了。
1.使用delphi自带控件。
Delphi 7中仍然存在Quick Report，只是因为Delphi 7默认的报表工具为Rave，所以在工具条上找不到。你可以使用Components|Install Packages，然后点击Add，找到delphi7安装目录\bin目录并添加dclqrt70.bpl。
然而，自带控件是没有源码的，只要有一点不满足要求，就得每个报表进行改动，项目根本无法进行下去。所以，源码太重要了。
2.使用QuickReport 4.0 professionalfor Delphi7. www.playicq.com上有一个带源码的版本，先去下载下来，安装。默认在Delphi安装目录的quickrpt子目录下面。
别急着使用！因为有太多问题。让我们来逐一解决下面的问题：
(1)QRDBText中文折行问题
QRDBText中有一个属性WordWrap，本来以为这个属性一设置为True，就万事大吉了，可事与愿违，全乱了！
查了半天资料，据说3.06版曾经解决了这个问题，后来的版本却又走了回头路！我晕，但有什么办法。千辛万苦，终于在大富翁上找到一个解决办法
原文见：http://www.delphibbs.com/delphibbs/dispq.asp?lid=620364第一步：
在...\Delphi7\lib目录下，找到qrctrls.dcu，删除之或改名，将...\Delphi7\quickrpt
目录下的qrctrls.pas和qrdefs.inc两个文件copy到...\Delphi7\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 true do
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)) < Width do
begin
NewLine := NewLine + copy(aWord, 1, 1);
Delete(aWord, 1, 1);
end;
//{$else}
// while aLineWidth(NewLine + copy(aWord, 1, 1)) < Width do
// 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) > Width do
//{$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) > 0 do
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 - 1 do
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 - 1 do
if aLineWidth(FFormattedLines[I]) > MaxLineWidth then
MaxLineWidth := aLineWidth(FFormattedLines[I]);
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;
DoneFormat := true;
end;
怎样将dbmemo.text 赋给qrdbtext？